En nuestro proyecto de VB6 debemos agregar la Referencia: “Microsoft ActiveX Data Objects 2.6 Library. Después declaramos un módulo donde pondremos una variable Pública de tipo “Connection”
Public conn As Connection
Posteriormente declaramos una función Pública que contendrá la cadena de conexión a nuestra BD en SQL Server 2000
Public Sub ConectaBD()
Set conn = New ADODB.Connection
conn.CursorLocation = adUseClient
conn.ConnectionString = “Driver={SQL Server};Server=SERVIDOR;Database=BD;Uid=user;Pwd=password;”
conn.Open
End Sub
Escrito por lags80 