Por ejemplo, para conectarte con ADO necesitas crear una variable que represente la conexión con SQL Server. Además puedes emplear un objeto de comando para ejecutar las consultas y un objeto RecordSet para tomar los registros devueltos de las consultas.
Ejemplo de conexión:
Código:
Option Explicit
Dim cnn As AdODB.Connection
Private Sub Form_Load()
Set cnn = CreateObject("ADODB.Connection")
cnn.ConnectionString = "Driver={SQL Server};Description=PorMientras;SERVER=localhost;UID=sa;PWD=;DATABASE=Escuelantes"
cnn.Open
End Sub
Private Sub Form_Unload(Cancel As Integer)
cnn.Close
Set cnn = Nothing
End Sub