vbPrivate Sub Command1_Click()
Unload Me
Form2.Show
End Sub
Private Sub Command4_Click()
Dim bh As String
bh = InputBox("请输入要查找的信息:", "提示")
Adodc1.RecordSource = "select * from 通讯录 where '姓名='" & "'"
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox "查无此人!", , "提示"
Adodc1.RecordSource = "select*from通讯录"
Adodc1.Refresh
End If
End Sub