Question

VB 中使用ADODC控件连接数据库，DataGrid显示数据，用SQL语句来多字段查找联系人代码如下

Private Sub Command1_Click()
Adodc1.CommandType = adCmdTable
If Text1.Text <> "" Then
Adodc1.RecordSource = "Select 姓名，性别，所在城市，职务职称 From 通讯录 Where 姓名='" & Text1.Text & "'"
End If
If Text2.Text <> "" Then
Adodc1.RecordSource = "Select 姓名，性别，所在城市，职务职称 From 通讯录 Where 性别='" & Text2.Text & "'"
End If
If Text3.Text <> "" Then
Adodc1.RecordSource = "Select 姓名，性别，所在城市，职务职称 From 通讯录 Where 所在城市='" & Text3.Text & "'"
End If
If Text4.Text <> "" Then
Adodc1.RecordSource = "Select 姓名，性别，所在城市，职务职称 From 通讯录 Where 职务职称='" & Text4.Text & "'"
End If
Adodc1.refresh
联系人列表.refresh
If Adodc1.Recordset.EOF Then
MsgBox "无满足条件的联系人", , "提示"
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = "Select 姓名，性别,所在城市，职务职称 From 通讯录"
Adodc1.refresh
联系人列表.refresh
End If
End Sub
运行时提示From字句语法错误 对象'refresh'的方法'IAdodc'失败
哪位大神能帮我看看哪里错了？怎么改？谢谢了
Adodc1.CommandType = adCmdText后又显示 至少一个参数没有被指定值，对象'refresh'的方法'IAdodc'失败
求破解

Answer 1

十年没接触VB了，忘了。。。。。

追问

.....