Ho un problema con una query facile ..

codice:
Public SQLQuery As String
Public DBConn As ADODB.Connection
Public RecSet As ADODB.Recordset

Private Sub Command1_Click()
 Dim St As String
 Set DBConn = New ADODB.Connection
 Set RecSet = New ADODB.Recordset
 DBConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='C:\AerreDb.mdb';Persist Security Info=False"
 DBConn.Open DBConn.ConnectionString
 
 RecSet.Open SQLQuery, DBConn, 1
 Form1.Caption = RecSet.RecordCount & " Record "
 
 List1.Clear
 If RecSet.RecordCount > 0 Then
  RecSet.MoveFirst
  While RecSet.EOF = False
   St = ""
   For i = 0 To RecSet.Fields.Count - 1
    St = St & " " & RecSet.Fields(i).Value
   Next i
   List1.AddItem St
   RecSet.MoveNext
 Wend
 End If
End Sub

Private Sub Form_Load()
 SQLQuery = "SELECT C.Nome FROM CLIENTE AS C WHERE C.Nome like '*MARCO*' "
 Command1.Caption = "Esegui query : " & SQLQuery
End Sub
Nom mi restituisce nessun record anche se nella tabella ci sono diversi record contenenti nel campo nome Marco.
Please HELP me !