Problema al conectar programa VB mediante internet

[MiKe27]

Hola, agregale el err.description al manejador de error para ver cual es el error ke esta arrojando

Código:

Sub Main3()
On Error GoTo ERROR
CONECCION.OpenConnection "xxx.xx.xx.xxx", "user", "contraseña", "BD", 3306, CLIENT_TRANSACTIONS
If (CONECCION.State = MY_CONN_CLOSED) Then
MsgBox (Err.Description)
Exit Sub
Else
Exit Sub
End If
On Error GoTo 0
ERROR:
MsgBox (Err.Description)
Exit Sub
End Sub

y nos cuentas