sql语句问题????

下面红色代码部分!a_Sql = "Select * From tLogs Where dtTime2 is null and sMemo Like '*" & gz & "*'"
在数据库中有一条数据dtTime2为空,sMemo里数据为"高职建工0801"包含"高职"两字符合select语句查询条件.但输出rsa.RecordCount值却为"0"????????????????????????
vate Sub Timer1_Timer()
    Label1.Caption = Time
    
    Dim tag_agin, tag_end As Date
    tag_agin = #7:30:00 PM#
    tag_end = #9:30:00 PM#
    If Time = tag_agin Then
        
       
        Dim i As Long
        Dim gz As String
        gz = "高职"
        
        Dim s_Conn As New ADODB.Connection
        Dim rss As New ADODB.Recordset
        Dim s_Sql As String
        s_Conn.CursorLocation = adUseServer
        '连接SQL数据库
        s_Conn.ConnectionString = "driver={sql server};server=61.233.62.174;uid=sa;pwd=questioncexovjai;Database=kq"
        s_Conn.ConnectionTimeout = 50
        s_Conn.Open
        Set rss.ActiveConnection = s_Conn
        '设置游标类型
        rss.CursorType = adOpenDynamic
         '构造mssql sql语句
        s_Sql = "Select * From sjinfo"
        
        Dim a_Conn As New ADODB.Connection
        Dim rsa As New ADODB.Recordset
        Dim a_Sql As String
        a_Conn.CursorLocation = adUseClient
        '连接access数据库
        a_Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\万象2004 935免验证版\2004rec.mdb;Persist Security Info=False;Jet OLEDB:Database Password=zhrmghg1949jgqz"
        'a_Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\万象2004 935免验证版\sc\cs.mdb;Persist Security Info=False;Jet OLEDB:Database Password=123456"        a_Conn.Open
        '构造access sql语句
         a_Sql = "Select * From tLogs Where dtTime2 is null and sMemo Like '*" & gz & "*'"
        rsa.Open a_Sql, a_Conn, adOpenStatic, adLockOptimistic
        MsgBox (rsa.RecordCount)        For i = 1 To rsa.RecordCount
            rss.Open s_Sql
            rss.AddNew
                rss("sjkid") = rsa("sCardID")
                kid = rsa("sCardID")                
                rss("sjtime") = "19:30:00"
                rss("sjdate") = rsa("dtTime1")
                rss("roomname") = "电算中心"
                rss("stuname") = rsa("sName")
                rss("stuclass") = rsa("sMemo")
            rss.Update
            rss.Close
            rsa.MoveNext
        Next i
        Set rsa = Nothing
        'MsgBox ("OK!")
    End If
End Sub