Ayuda a conectarme

[aavg]

Primeramente necesitas agregar la referencia a la libreria "Microsoft ActiveX Data Objects" desde el menu PROYECTO -> REFERENCIAS


'Declaracion de variables para abrir la base de datos
Public Cnn As New ADODB.Connection
Public Rst As New ADODB.Recordset

'Al cargar el formulario se abre la base
'Y se cargan todos los datos de la tabla
'en este ejemplo la base de datos SQL es PRUEBA
'Y la tabla se llama TABLE1
Private Sub Form_Load()

Cnn.ConnectionString = "driver={SQL Server};" & _
"server=MiServidor;uid=Usuario;pwd=Contra;database =PRUEBA"

Cnn.Open

With Rst
.ActiveConnection = Cnn
.LockType = adLockReadOnly
.CursorType = adOpenStatic
.Open "Select * from Tabla1"
End With

End Sub


Una vez hecho esto, ya te abras conectado a la base de datos y tendras los datos de la tabla en tu recordset

Espero haber resuelto tu pregunta