小弟学习数据库访问data控件时，遇到教材上案例输入不能正确执行，上来求助，请大侠们指点，感激！
1、增加按钮为什么不能正确增加输入的纪录；
代码如下：
Private Sub Command1_Click()    '增加记录，但是都是空白，不知道问题在哪里？？？
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text1.SetFocus
Command4.Enabled = True
Data1.Recordset.MoveLast
Data1.Recordset.AddNew
End Sub

2、查询按钮为什么出错中断：
代码如下：
Private Sub Command3_Click()     '查找，为什么查找不能执行？？？
Dim findxh As String
findxh = InputBox("请输入编号", "按编号搜索")
If findxh <> "" Then
    findxh "编号_'" & findxh & "'"         '搜索字符串
    Data1.Recordset.FindFirst ("findxh")
    If Data1.Recordset.NoMatch Then
        MsgBox "没有相应的人员记录", vbInformation, "信息"
    End If
End If
End Sub

红色部分绝对是问题症结所在，就是不知道怎么弄，请各位指点，谢谢了！

终于知道为什么了，自己解答一番：
1）增加按钮没反应，是应为Text文本框的datafield属性没有设置，粗心真是粗心，呵呵；
2）查找按钮：
    findfirst语句格式为:recordset.findfirst （条件）
    书中比较模糊，应该是：findxh="编号='" & findxh & "'"
    也可以直接两句写成一句：
    Data1.Recordset.FindFirst ("编号='" & findxh & "'")
    括号中的为查询条件，另外实验了一下，括号有和没有，效果是一样的，呵呵

希望喜欢VB的朋友，自学顺利。