У кого получилось подключится к MySQL (на хостинг) ? - VB

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

У кого получилось подключится к MySQL ?
Не на локальном нужно а на хостинге. Ждет, потом выдает ошибку.
Установил SQL Server драйвер
Set Cnn = New adodb.Connection
Cnn.open "DRIVER={SQL Server}....................

Решение задачи: «У кого получилось подключится к MySQL (на хостинг) ?»

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

                            Dim Cnn As adodb.Connection
  Dim cmdCommand As New adodb.Command
  Dim strConn As String
  Dim cols, date_time, vals As String
  Set Cnn = New adodb.Connection
  Set Rec = New adodb.Recordset
  Cnn.open "DRIVER={MySQL ODBC 5.2 Unicode Driver};SERVER=91.206.200.109;PORT=3306;DATABASE=ВАША_БАЗА;UID=ЛОГИН;PWD=ПАРОЛЬ;OPTION=3;"
    With cmdCommand
      .ActiveConnection = Cnn
      .CommandText = "SELECT * FROM  `reg4`;"
      .CommandType = adCmdText
    End With
  With Rec
    .CursorLocation = adUseClient
    .CursorType = adOpenStatic
    .LockType = adLockOptimistic
  End With
  Rec.open cmdCommand
  Do While Not Rec.EOF
  Rec.MoveNext
  Loop
  Set Form25.DataGrid1.DataSource = Rec.Clone
  Rec.Close
  Cnn.Close

                        