Error de conexion a la BD. VB6

[lizardmx]

Hola, eh estado programando una aplicacion que de manera local creando una conexion local desde el ODBC con la cadena de conexion:

cadena = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=ahorro" //para acceder a la base de datos ahorro.

pero ahora al querer accesar desde la red a la misma base de datos ahorro ya cargada a un servidor designado (x.x.x.x), uso los siguientes codigos:

Open App.Path & "\server.txt" For Input As #1
Line Input #1, server
usuario = "admin"
password = "comercial"
cadena = "PROVIDER=MSDASQL;dsn=baselocal;"
Close #1

y otra cadena de conexion es:

Open App.Path & "\server.txt" For Input As #1
Line Input #1, server
usuario = "admin"
password = "comercial"
cadena = "PROVIDER=MSDASQL;driver={MySQL ODBC 3.51 Driver};server=" & server & ";uid=" & usuario & ";pwd=" & password & ";database=ahorro;" & "option=" & 1 + 2 + 8 + 32 + 2048 + 16384
Close #1


sabiendo que en el server.txt esta la direccion de mi servidor, y que el usuario y password ya estan asignados a mi conexion.

Ninguna cadena de conexion me conecta a la Base de Datos del Servidor.

Les agradeceria mucho su ayuda si le pudieran decirme donde puede estar mi error y hacerle alguna modificación u observacion. Muchas gracias

[Fann_Lavigne]

www.connectionstrings.com