SELECT id2, txt2 FROM pww2_schema.new_table;

    Dim oConn As Object
    Set oConn = New ADODB.Connection
 
    oConn.Open "DRIVER={MySQL ODBC 8.0 Unicode Driver};" & _
               "SERVER=127.0.0.1;" & _
               "DATABASE=pww2_schema;" & _
               "UID=root;" & _
               "PASSWORD=pww41900;" & _
               "PORT:3306;" & _
               "Option=3;"
    
    If oConn.State = adStateOpen Then
        'MsgBox "Ok connected!"
    Else
        MsgBox "Error - not connect... "
    End If

    Dim cmd As ADODB.Command  'переменная в которой будет запрос
    Set cmd = New ADODB.Command
    
    Dim rec As ADODB.Recordset 'переменная в которой будет результат запроса
    Set rec = New ADODB.Recordset
    
    Set cmd.ActiveConnection = oConn 'указываем соединение см.выше
    cmd.CommandText = "SELECT * FROM pww2_schema.new_table;" 'запрос к БД
    cmd.CommandType = adCmdText
    cmd.Execute
     
    Set rec.ActiveConnection = oConn
    rec.Open cmd
    Debug.Print (rec.Fields("id2").Value)
    'потом закрыть и прибить rec, cmd, oConn 

Dim rst As New ADODB.Recordset
Dim strSQL As String
strSQL = "SELECT id2,ttt2 FROM pww2_schema.new_table;"

rst.Open strSQL, oConn, adOpenDynamic, adLockOptimistic
Set Me.Recordset = rst

''''''''''

rst.Close
oConn.Close
Set rst = Nothing
Set oConn = Nothing