ADO + Access + 模糊匹配 DataGrid返回数据 代码？？？

Question

SQL语句这样写
"select * from WORKING where QC like '%" & trim(Text1.Text) & "%'"Set DataGrid1.DataSource = adoUser
在此后面要加DataGrid1.Refresh

Answer 1

在此后面也要加DataGrid1.Refresh，以清空datagird1
Set DataGrid1.DataSource = Nothing

Answer 2

我自己解决啦！
大家可以分享！Dim i As String
i = Text1.Text 
Dim db As Connection
Set db = New Connection
db.CursorLoaction = adUseClient
db.Open"Provider = Microsoft.Jet.OLEDB.3.51;Persist Security Info = False; Data Source = C:\Users\abc.mdb;"adoUser.Close 
Set adoUser = New RecordsetadoUser.Open "select * from WORKING where QC like '%" & i & "%' Order by MO", db, adOpenStatic, adLockOptimistic 
Set DataGrid1.DataSource = adoUser
End Sub