Sub sub23163()
    On Error GoTo errorHandling1
    
    Dim openConnection As ADODB.Connection
   
    connectionString = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=Provider=MySQLProv;DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=test5;USER=root;PASSWORD=;OPTION=16387;Initial Catalog="
    Set openConnection = New ADODB.Connection
    openConnection.connectionString = connectionString
    openConnection.Open
    
    Dim cmd As ADODB.Command
    Dim rs As ADODB.Recordset
    
    Set cmd = New ADODB.Command
    cmd.ActiveConnection = openConnection
    cmd.CommandText = "DROP TABLE IF EXISTS `tab23163`"
    cmd.Execute
    cmd.CommandText = "CREATE TABLE `tab23163` (ID int, TXT varchar(128))"
    cmd.Execute
    cmd.CommandText = "INSERT INTO `tab23163` VALUES (1, 'test #1'),(2, 'test #2')"
    cmd.Execute
    
    Set rs = New ADODB.Recordset
    rs.ActiveConnection = openConnection
    rs.Open ("SELECT * FROM tab23163")
    
    Do While Not rs.EOF
        Debug.Print "ID=", rs("ID")
        Debug.Print "TXT=", rs("TXT")
        rs.MoveNext
    Loop
    
    rs.Close
    openConnection.Close
    'cmd.
    
    Exit Sub
    
errorHandling1:
    Debug.Print err.Description
    lcErrorStop = True
    Exit Sub
    
End Sub