vb data 存数据库，解决方法

vb data 存数据库，
比如有一个员工管理的数据库，有“姓名”、“年龄”、“工资”，有三个text文本 4，5，6分别对应，
要用data实现这个功能，点Command2_Click时，当要存入的姓名和年龄数据库同时有时，提示“该员工已存在”，否侧就存入数据库，比如数据库有 小王 21 2500 ； 小李 22 3000 ； 小强 23 2800  

Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\员工管理.mdb"
Data1.RecordSource = "表1"
Data1.Refresh
End Sub

Private Sub Command1_Click()
Data1.Recordset.MoveFirst
Text1.Text = Data1.Recordset.Fields("姓名")
Text2.Text = Data1.Recordset.Fields("年龄")
Text3.Text = Data1.Recordset.Fields("工资")
End Sub

在线等，请各位帮忙啊

[解决办法]
先判断下有么有。
set rs = cn.execute "select count(*) from table where name = text1 and age = text2"
if rs(0) > 0 then
msgbox "exists."
end if
你的数据库有问题，如果有两个小王一样大，怎么办
还有，通常存生日，年龄会变的。
[解决办法]

VB code

    Dim Cnn As New ADODB.Connection    Cnn.ConnectionString = "Provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\员工管理.mdb"    If Cnn.State <> ADODB.ObjectStateEnum.adStateClosed Then Cnn.Close    Cnn.Open        If Not Cnn.Execute("select * from 表1 ").EOF Then        MsgBox "已存在"    End If    Cnn.Close    Set Cnn = Nothing