adodc3已经连接了一个access数据库，然后要模糊查询，在text里面输入一个字母进行模糊查询，查询结果显示到datagrid3中去，但是一直无法运行，看不出来有什么毛病，初学者求解答！多谢多谢
Private Sub Command3_Click()
Dim sql As String
Text5.Text = ""
sql = "select * from customer where customer_name  like'%" & Text5.Text & "%'"
= adCmdText
Adodc3.RecordSource = sql
Adodc3.Refresh
Text5.Text = Adodc3.Recordset("customer_name")
Set DataGrid3.DataSource = sql
DataGridRows = sql.RecordCount
End Sub

看来你使在其他地方拷贝的吧

Private Sub Command3_Click()
Dim sql As String
Text5.Text = ""    'Text5已经置空了，你怎么查询，这一条语句要删除，而且在点击 Command3 时，Text5 文本框必须有值！！
sql = "select * from customer where customer_name  like'%" & Text5.Text & "%'"   '这个语句有点问题，注意下面给你的语句，特别是在 like 的后面有空格。
sql = "select * from customer where customer_name like '%" & Text5.Text & "%'"
 = adCmdText
Adodc3.RecordSource = sql   '如果 Adodc3已经连接了数据库，这里应该没有问题，即已经有 Adodc3.ConnectionString = "连接数据库字符串语句" 这个语句
Adodc3.Refresh
'1、Text5.Text = Adodc3.Recordset("customer_name")
'2、Set DataGrid3.DataSource = sql 
'3、DataGridRows = sql.RecordCount         
'将上面三个语句修改为下面的语句
Set DataGrid3.DataSource = Adodc3   'OK了
End Sub

   
      SQL = "SELECT * FROM customer where customer_name like " & Chr(34) + "%" + Trim$(Text5.Text) + "%" + Chr(34)
       = adCmdunknow               
      Adodc3.RecordSource = SQL
      Adodc3.Refresh
        Set DataGrid1.DataSource = Adodc3