Guarda in questo sito sotto la voce ODBC DSN-Less MySql per la connessione al database.
http://www.carlprothman.net/Default.aspx?tabid=81

Per il recordset dopo che hai aperto la connessione:

codice:
    Private RS    As New ADODB.Recordset

    RS.CursorLocation = adUseClient
    SqlStr = "select * tabella"
    RS.Open SqlStr, DbNowAdo, adOpenKeyset, adLockOptimistic
    If not RS.EOF Then
    ......

    End If
Ciao