MS Access/MS Excel 2003 бахается - VB

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

Добрый день.
Есть:
MySQL Server 5.45
MS Access/MS Excel 2003
MyODBC 5.1
Надо импортировать данные из MySQL:
Делаю системный DSN к локальному серверу. Тестовое соединение проходит нормально. MS Access/MS Excel 2003 тоже соединяется нормально. Однако при выполнении любого запроса из таблицы где есть данные MS Access/MS Excel 2003 аварийно завершается. Параметры соединения менял (BIGINT AS INT) - не помогает.
Вопрос:
Как быть? Как поймать хотя бы номер ошибки? Из VB есть только VBA в MS Access/MS Excel 2003.
Заранее большущее спасибо!

Решение задачи: «MS Access/MS Excel 2003 бахается»

textual
                            Листинг программы 
                        

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