电话号查询

手机界面的电话号码查询,PrivateSubCommand1_Click()IfText1""ThenAdodc1.RecordSource="select*fromcallwhere科室或姓名代码like'%"&Text1&"%'"Adodc1.RefreshEndIfEndSubPrivateSubDataGrid1_Click()EndSubPrivateSubForm_Load()a="Provider=Microsoft.Jet.O