关于ADODB无法打开模糊查询的问题

突然发现一怪事,在DAO下运行一切正常的代码和LIKE模湖查询语句,到了ADODB下面就不能运行了.请各位兄弟帮个忙,看看问题是出在哪里.附上测试的文件,有兴趣的朋友可以试一下.

提示错误如下

:

代码看起来并无明显错误之处.

代码如下:

Public Function Test2010121401() As Boolean
On Error GoTo Err_ERRweizw
    '附件字段的数据类型为9
    Dim StrSQL As String
    Dim Rst As ADODB.Recordset
    Set Rst = New ADODB.Recordset
    Dim NameOrSQL As String
    NameOrSQL = "select * from 会计科目表最新 where [编号] & [科目名称] & [适用范围] & [账务处理]  Like '*工具*'"

   'NameOrSQL = "select * from 会计科目表最新 where 科目名称 LIKE '*库存*';"
        'NameOrSQL = "select * from MH查询;"

    Sum = 0
        StrSQL = NameOrSQL
        
 ' Rst.Open StrSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    Rst.Open StrSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
    
    
    Rst.MoveLast
    Rst.MoveFirst
    j = Rst.RecordCount
   
     
    Debug.Print j
    MsgBox "符合条件的记录数为:" & j
    Rst.Close
    Set Rst = Nothing
Exit_ERRweizw:
    Exit Function

Err_ERRweizw:
    MsgBox Err.Description
    Application.Echo True
    DoCmd.Hourglass False
    Resume Exit_ERRweizw
End Function

点击下载此附件