如何使用VBA從Access模糊查詢中獲取結果？

Question

數據庫就像

• ID名稱
• 1 AAA
• 2 BBA
• 3 AAC
• 4 DDB

在Access查詢設計我用

select * from dbname where name like '*'& [The Name ?] &'*' 

做模糊搜索，它的作品沒事。

但是，當我在VBA中使用這個查詢時，它只是沒有得到任何回報。

Public Sub SeekClientData() 
Dim adoConn As ADODB.Connection 
Dim adoRs As ADODB.Recordset 

Set adoConn = New ADODB.Connection 
Set adoRs = New ADODB.Recordset 

With adoConn 
    .Provider = "Microsoft.Jet.OLEDB.4.0" 
    .Open ThisWorkbook.Path & "\fsdb.mdb" 
End With 

adoRs.Open "[testquery]'aa'", adoConn 'testQuery 


Range("A2").CopyFromRecordset adoRs 


adoRs.Close: Set adoRs = Nothing 
adoConn.Close: Set adoConn = Nothing 
End Sub 

當我調試此代碼時，我只是得到adoRs.EOF。

但是，當我把它設置的嚴格，我的意思是沒有模糊，它工作正常。 我的意思是：

select * from dbname where name=[The Name ?] 

作品正確。

我做了很多搜索，但不能解決這個問題。歡迎任何幫助！ （A2）？

Answer 1

範圍（A2）？聽起來像Excel。 ThisWorkbook.Path也聽起來像Excel。這是嚴格在Access？它是混合動力車嗎？