怎样实现以下功能：
窗体上有几个textbox控件，用来显示从数据库查询到的一条记录
如果找到就填充
如果找不到则需要输入，并将输入内容插入到库中
Private Sub TxtName_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtName.LostFocus
        SqlDataAdapter1.SelectCommand.Parameters("@姓名").Value = txtName.Text
        SqlDataAdapter1.SelectCommand.Parameters("@工作证号").Value = ""
        Dsinput1.Clear()
        SqlDataAdapter1.Fill(Dsinput1)
    End Sub
以上代码可实现查询到后填充
但不能输入，我该怎么办？？？？？