Private Sub Button0_Click()
    Dim ConnectionString As String
    ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost;PORT=3306;DATABASE=testdb;USER=sa;PASSWORD=pass;OPTION=3;"
    Dim MySQLConnection As New ADODB.Connection
    MySQLConnection.ConnectionString = ConnectionString
    MySQLConnection.CursorLocation = adUseClient
    MySQLConnection.Open
    If MySQLConnection.State = adStateOpen Then
        Debug.Print "Connection success"
        Dim MySQLRecordset As New ADODB.Recordset
        MySQLRecordset.CursorLocation = adUseClient
        MySQLRecordset.CursorType = adOpenStatic
        MySQLRecordset.Open "SELECT Id, MessageDate, MessageValue FROM odbctest", MySQLConnection, adOpenForwardOnly, adLockReadOnly
        If MySQLRecordset.State = adStateOpen Then
            Dim RowCount As Long
            RowCount = MySQLRecordset.RecordCount
            Debug.Print "Recordset success"; RowCount
            While Not MySQLRecordset.EOF
                Debug.Print "Id:" & MySQLRecordset!Id & " Date:" & MySQLRecordset!MessageDate & " Value:" & MySQLRecordset!MessageValue
                MySQLRecordset.MoveNext
            Wend
            MySQLRecordset.Close
        Else
            Debug.Print "Recordset failed"
        End If
        MySQLConnection.Close
    Else
        Bedug.Print "Connection failed"
    End If
End Sub

SELECT Id, MessageDate, MessageValue, MessageText FROM odbctest

Id - INTEGER AUTOINC
MessageDate - DATETIME
MessageValue - DOUBLE
MessageText - CHAR( 32 )

...
On Error Resume Next
        MySQLRecordset.Open "SELECT Id, MessageDate, MessageValue, MessageText FROM odbctest", MySQLConnection, adOpenForwardOnly, adLockReadOnly
If Err <>  0  Then
        Debug.Print "ErrNo: " & Err.Number & " ErrMessage: " & Err.Description
End If
...

ErrNo: - 2147467259  ErrMessage: Поставщик данных или другая служба вернули состояние E_FAIL.

SELECT Id, MessageDate, MessageValue, `MessageText` as T FROM odbctest

Description: Поставщик данных или другая служба вернули состояние E_FAIL.
HelpContext:  0 
HelpFile: ""
NativeError:  0 
Number: - 2147467259 
Source: Microsoft Cursor Engine
SQLState: ""

CREATE TABLE `odbctest` (
  `Id` int( 10 ) unsigned NOT NULL auto_increment,
  `MessageText` char( 32 ) character set cp1251 collate cp1251_bin NOT NULL,
  `MessageDate` datetime NOT NULL,
  `MessageValue` double NOT NULL,
  PRIMARY KEY  (`Id`)
) ENGINE=InnoDB DEFAULT CHARSET=cp1251;

SELECT Id, MessageDate, MessageValue, CONVERT(MessageText USING utf8) AS MessageText FROM odbctest