Подключение к MySQL

[dr.MIG]

Помогите plz, почему этот код, по идее правильный, при попытке подключения к БД (для которой разрешено удалённое подключение) выдаёт ошибку [MySQL][ODBC 3.51 Driver]Can't connect to MySQL server on 'xxxx.xxxx.net(10060)

Код: Выделить всё

Dim cnl As New ADODB.Connection
Dim rsl As New Recordset
Dim strServer As String
Dim strDatabase As String
Dim strUser As String
Dim strPassword As String

strServer = "xxxx.xxxx.net"
strDatabase = "dbxxx"
strUser = "xxxx"
strPassword = "xxxx"

conString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & strServer & ";PORT=3306;DATABASE=" & strDatabase & ";USER=" & strUser & ";PASSWORD=" & strPassword & ";OPTION=3;"
cnl.Open conString
strQuerry = "CREATE TABLE sometable (somerecord TEXT);"
rsl.Source = strQuerry
Set rsl.ActiveConnection = cnl
rsl.Open

[Konst_One]

если через интернет лезешь, то проверь доступ по порту 3306 с помощью telnet.
и указывать надо IP адрес сервера в этой строке: strServer