Dim cn As ADODB.Connection, rs As ADODB.Recordset
    Set cn = New ADODB.Connection
    With cn
        .Provider =  "Microsoft.Jet.OLEDB.4 . 0 "
        .ConnectionString =  "Data Source=C:\Documents and Settings\Pashka\My Documents\db1.mdb;Persist Security Info=False" 
        .Open
    End With
    Set rs = New ADODB.Recordset
    With rs
        .ActiveConnection = cn
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Source =  "SELECT * FROM Table1 WHERE qqq Like 'X%';" 
    End With
    rs.Open
    MsgBox rs.RecordCount
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing