MyODBC E_FAIL Подскажите что не так - VB

Формулировка задачи:

Button0_Click()
     ConnectionString  
    ConnectionString = 
     MySQLConnection   ADODB.Connection
    MySQLConnection.ConnectionString = ConnectionString
    MySQLConnection.CursorLocation = adUseClient
    MySQLConnection.
     MySQLConnection.State = adStateOpen 
        Debug. 
         MySQLRecordset   ADODB.Recordset
        MySQLRecordset.CursorLocation = adUseClient
        MySQLRecordset.CursorType = adOpenStatic
        MySQLRecordset. , MySQLConnection, adOpenForwardOnly, adLockReadOnly
         MySQLRecordset.State = adStateOpen 
             RowCount  
            RowCount = MySQLRecordset.RecordCount
            Debug. ; RowCount
              MySQLRecordset.EOF
                Debug.  & MySQLRecordset!Id &  & MySQLRecordset!MessageDate &  & MySQLRecordset!MessageValue
                MySQLRecordset.MoveNext
            
            MySQLRecordset.
        
            Debug. 
         
        MySQLConnection.
    
        Bedug. 
     
 

Этот код выполняется нормально. Однако если в запрос добавить текстовое поле

MessageText

Id, MessageDate, MessageValue, MessageText FROM odbctest

выдает ошибку при открытии MySQLRecordset - E_FAIL
Типы полей:

Id -  AUTOINC
MessageDate - 
MessageValue - 
MessageText - ()

Решение задачи: «MyODBC E_FAIL Подскажите что не так»

textual
                            Листинг программы 
                        
                            <font color="blue">SELECT</font> Id, MessageDate, MessageValue, CONVERT(MessageText USING utf8) <font color="blue">AS</font> MessageText FROM odbctest