Private Sub Command1_Click()

If Text1.Text = "" Then
MsgBox ("请输入员工姓名")
ElseIf Text1.Text = "*" Then
Adodc1.RecordSource = "select*from rsda"
Adodc1.Refresh
Else
Adodc1.RecordSource = "select*from rsda where 部门 like" + Chr(34) + Text1.Text + "*" + Chr(34) + ""
Adodc1.Refresh
End If
End Sub
如上段代码,我想将查询的结果显示在DataGrid1中,可是当在文本框中输入部门名称时,运行程序单击按钮,DataGrid1中什么都没有,但是输入*后单击却显示全部记录,这是怎么回事???

看不懂~~~~~~~~~~

谁能看一下

知道哪错了.
Adodc1.RecordSource = "select*from rsda where 部门 like" + Chr(34) + Text1.Text + Chr(34) + ""