Problemas conexiones a base de datos en red

[drakoncr]

Hice una aplicacion con mysql y necesito que se conecte a red utilizo esta funcion para conectar el sistema.

Public Sub conectar()
On Error GoTo Ver
Set cn = New ADODB.Connection
With cn
.CursorLocation = adUseClient
.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=" & IP & ";" _
& "DATABASE=" & bd & ";" _
& "UID=" & User & ";" _
& "PWD=" & Pass & ";" _
& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
.Open
End With
Ver:
If Err.Number > 0 Then
MsgBox "Nº de error: " & Err.Number & " | " & Err.Description, vbCritical, "Control de errores"
Err.Clear
End If
End Sub

el ip, usuario y contrasena se dan al cagar el programa y se guardan en un archivo que se extrare la variable para utilizar. al cargar el programa no abre al conexion al guna idea.
en los formularios utilizo esta forma para usar el rs

With com
.ActiveConnection = cn
.CommandType = adCmdText
.CommandText = "Select elector.cedula,elector.junta , elector.nombre, elector.apellido1, elector.apellido2,lugar.distrito From elector,lugar where lugar.codelec = elector.codelec AND elector.cedula='" & txtcedula.Text & "'"
Set rs3 = .Execute