初学vb有个简单问题请教，谢谢

01.在可视化数据管理中添加了表member，有这几个字段，bianhao，cardnum，name，age，mail
02.在主窗体中有这几个控件：

label（请输入编号或卡号）：text（用于输入编号或卡号） 
text1旁边有个command1，单击用来执行查询
下面是几个标签，用于显示卡号或编号为text1输入内容的员工信息。
03.添加data1控件，在属性窗口设置databasename路径，recordsource为member

04.下面的label标签在属性窗口绑定了数据（datasource，datafilds）

command1 单击事件代码如下：

Private Sub Command1_Click()
Data1.Recordset.FindFirst "ygbh = 'Text1.Text'"
If Data1.Recordset.NoMatch Then
MsgBox "记录不存在"
End If

End Sub

以上是我的所有操作，我的目的是当输入员工的卡号或编号时，在下方显示相应员工的信息，初学，做了个习题，就是运行不出来，请各位看看，谢谢

提示什么错误？

没有提示错误，无论什么查询数值都输出MsgBox "记录不存在"
数据库里有这个数据的，也提示不存在