RE:Conectar con ADO una base remota
Nosotros usamos una BD remota Oracle
Debes crear un Dataenviroment, que para nuestro caso se llama Coneccion.
En las propiedades, conexion,usar nombre de origen de datos (debe ir el nombre asignado a tu ODBC de coneccion a la bd deseada
*Subrrutina para conectarte en el inicio de tu sistema
Sub ConectarBase()
On Error GoTo ErrorEnConeccion
FlagConeccion = True
Set com1 = New Command
DataEnvironment1.Coneccion.Open
com1.ActiveConnection = DataEnvironment1.Coneccion
com1.CommandTimeout = 0
Mipath = App.Path
ErrorEnConeccion:
If Err.Number <> 0 Then
FlagConeccion = False
' MsgBox ("El error es : " + Str(Err.Number) + " " + Err.Description)
MsgBox "ERROR : login/password incorrecto"
End If
End Sub