Подключение к MySQL

Public conn As New ADODB.Connection
 
Public sql As String
 
Public ConString As String
 
Sub Main()
 
 Set conn = Nothing
    Set conn = New ADODB.Connection
    conn = "DRIVER={MySQL ODBC 8.0 Driver};DSN='DD';SERVER=localhost;PORT=3306;DATABASE=test;UID=root;PWD=1;OPTION=3;"
    conn.Open
    If conn.State = 1 Then
        MsgBox "Соединение установлено"
    Else
        MsgBox "Соединение не установлено"
    End If
 
Form1.Show
End Sub

Private Sub Form_Load()
    Call UpdateConnect
End Sub
 
Sub UpdateConnect()
    Set rs = Nothing
    Set rs = New ADODB.Recordset
    sql = "SELECT * From test1;"
    rs.Open sql, conn, 3, 3
    Set DataGrid1.DataSource = rs
End Sub

Sub Connect_Mysql()
 
Dim i As Integer
Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset
 
conn.ConnectionString = "Driver={MySQL ODBC 8.0 Unicode Driver};Server=localhost;DB=test;UID=root;PWD=1;charset=cp1251;OPTION=3;"
conn.Open
 
rs.Open "select * from `test1`", conn
 
Do While Not rs.EOF
   For i = 0 To rs.Fields.Count - 1
      
      'OutPuts Name and Value of each field
 
'      Debug.Print rec.Fields(i).Name & ": " & _
'      rec.Fields(i).Value
 
  Debug.Print rs.Fields(i).Value
  
    Next
rs.MoveNext
Loop
 
 
'    If conn.State = adStateOpen Then
'        MsgBox "Connected! =)"
'    Else
'        MsgBox "Ñan not connect... =("
'    End If
    
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
    
    End Sub