Private Sub Button0_Click()
    Dim ConnectionString As String
    ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost;PORT=3306;DATABASE=asmgcs;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 )