Подключится к MySql через ODBC - VB

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

Как это сделать программно
какие API использовать и как
дайте пожалуйста пример

Решение задачи: «Подключится к MySql через ODBC»

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

                            <font color="blue">Dim</font> dbCn       <font color="blue">As</font> rdoConnection          <font color="00AA00">' Описатель источника базы данных</font>

    <font color="blue">Set</font> dbCn = <font color="blue">New</font> rdoConnection           <font color="00AA00">' Открыть базу данных</font>
    dbCn.Connect = <font color="teal">"DSN=myDSN;"</font>          <font color="00AA00">' Соединиться с источником</font>

    <font color="blue">Dim</font> rsVers <font color="blue">As</font> rdoResultset
    <font color="blue">Set</font> rsVers = dbCn.OpenResultset(<font color="teal">"SHOW VARIABLES like 'version'"</font>)
    MySQLVersion = rsVers!Value
    <font color="blue">If</font> <font color="blue">Mid</font>(rsVers!Value, <font color="darkblue"><b>1</b></font>, <font color="darkblue"><b>4</b></font>) <= <font color="teal">"4.0."</font> <font color="blue">Then</font>   <font color="00AA00">' Если не версия 4.0.</font>
       MsgBox <font color="teal">"Не поддерживается работа с MySQL версии ниже 4.1!"</font>, vbCritical
       <font color="blue">End</font>
    <font color="blue">End</font> <font color="blue">If</font>
    dbCn.Execute <font color="teal">"SET NAMES 'cp1251'"</font>
    rsVers.<font color="blue">Close</font>

                        