vbPrivateSubCommand1_Click()UnloadMeForm2.ShowEndSubPrivateSubCommand4_Click()DimbhAsStringbh=InputBox("请输入要查找的信息：","提示")Adodc1.RecordSource="select*from通讯录where'姓名='"&"'"Adodc1.RefreshIfAdodc1.Recordset.EOFThenMsgBox"查无