RE:Conectar Base de datos servidor.
Hola, la Base de Datos es en SQL Server?. SI es asi, tienes q agregar la referencia del ADO al proyecto y una vez añadida, puedes realizar la conexion utilizando esta función:
'En "Nombre_Servidor" escribe el nombre del servidor de la maquina a la que te quieras conectar
'----------------------------------------------------------------------------------------------------------
Dim cnnConexion As ADODB.Connection
Private Function EstablecerConexion() As Boolean
On Error GoTo Error
Dim strCadenaConexion As String
Set cnnConexion = New Connection
strCadenaConexion = "driver={SQL Server};server=Nombre_Servidor;uid=sa;pwd=sa;database=master"
cnnConexion.ConnectionString = strCadenaConexion
cnnConexion.ConnectionTimeout = 60
cnnConexion.CommandTimeout = 300
cnnConexion.Open
EstablecerConexion = True
Exit Function
Error:
EstablecerConexion = False
End Function
'----------------------------------------------------------------------------------------------------------
Un Saludo,