RE:CONEXION A SQL EN VISUAL BASIC
Espero que esto te ayude
mi programa tiene este tipo de conexion
'yo declaro esto en un modulo
Global gcnSQL As ADODB.Connection
'despues hago esta funcion en el modulo
Public Function Open_cnSQL(strCnn As String) As Boolean
On Error GoTo ErrorConectarSQL:
Set gcnSQL = New ADODB.Connection
With gcnSQL
.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=dbImpOfertas;Data Source=" & strCnn
.CommandTimeout = 0
.Open
Open_cnSQL = True
End With
Exit Function
ErrorConectarSQL:
MsgBox "No se pudo abrir la Base de datos ImpOfertas", vbInformation, "Impresion de Rotulos"
Open_cnSQL = False
End Function
'y en el form de inicio mando llamar la conexion de la siguiente manera :
'aqui declaro la variable strCnn
en la cual se asigna la ip o el nombre de la maquina en la cual se encuentra la bs en SQL
If Open_cnSQL(strCnn) = False Then
MsgBox "Error no conexion"
Unload Me
End If
saludos espero que te sirva ok