Buenas, actualmente estoy usando ado codigo para conectar a Mysql, pero el problema viene cuando el server esta caido o la red no esta correcta, quiero que no se me quede medio colgado el programa durante la conexion a la base de datos, ya intente cambiar el timeout pero no me da resultados, por favor alguien que me de una mano, este es mi codigo:
Const CNStr = "Driver={MySQL ODBC 5.2 Unicode Driver};Server=192.168.1.100;Port=3306;Timeout=5;Option=131072;St mt=;Database=DB;Uid=User;Pwd=Pass;"
Public CN As ADODB.Connection
Public RSUsers As ADODB.Recordset
Sub CNUsers(SQL As String)
On Error GoTo ErrRedUsers
Set CN = New ADODB.Connection
Set RSUsers = New ADODB.Recordset
CN.ConnectionString = CNStr
CN.Open
RSUsers.CursorLocation = adUseClient
RSUsers.LockType = adLockOptimistic
RSUsers.ActiveConnection = CN
RSUsers.Open SQL
Exit Sub
ErrRedUsers:
MsgBox Err.Description
End Sub
CNUsers "select * from users where Login=Login"
Gracias.
