vb daima xiazai

【文件属性】：

文件名称：vb daima xiazai

文件大小：113KB

文件格式：DOC

更新时间：2015-06-19 10:19:35

vb

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