Dim oConn As Object
    Set oConn = New ADODB.Connection
    Dim s As String
    oConn.Open "DRIVER={MySQL ODBC 5.3 ANSI Driver};" & _
               "SERVER=localhost;" & _
               "DATABASE=база" & _
               "UID=root;" & _
               "PASSWORD=пароль;" & _
               "PORT:3306;" & _
               "charset=cp1251;" & _
               "Option=3;"
    
    Dim rec As ADODB.Recordset
    Set rec = New ADODB.Recordset

    s = "select * from person"

    With rec
        .ActiveConnection = oConn
        .LockType = adLockReadOnly
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .Open s
    End With

Dim conn As Object
Set conn = New ADODB.Connection
conn.ConnectionString = "DRIVER={MySQL ODBC 8.0 Unicode Driver};SERVER=localhost;DATABASE=*;UID=root;PWD=*;"
conn.Open