HOLA Fatima:
PUEDES USAR VARIOS TIPO DE CONEXION, EN VB HAY UN CON CONTROL Q SE LLAMA ADODC CON EL QUE PUEDES CREAR TUS CONEXIONES.
ESPERO T SIRVA ESTE EJEMPLO CUALQUIER COSA ESTAMOS PARA SERVIRTE AQUI EN GUATEMALA.
SALUDOS
Public Con As ADODB.Connection
Set Con = New ADODB.Connection
'CON seguridad Sql
Con.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=conta;Data Source= '" & SERVIDOR1 & "'"
'SIN conseguridad Sql
Con.ConnectionString = "Provider=SQLOLEDB.1;Integrated ecurity=SSPI;Persist Security Info=False;Initial Catalog=conta;Data Source= '" & SERVIDOR1 & "'"
Con.CommandTimeout = 0
Con.Open
LUEGO....
Set Clientes = New ADODB.Recordset
Clientes.CursorLocation = adUseClient
Clientes.Open "select * from clientes where empresa=" & cEmpresa & "", Con, adOpenKeyset, adLockReadOnly