Bueno este es el ejemplo que tengo a la mano, agrega la referencia "Microsoft activeX dataobject 2.1 library"
En un modulo .bas
Código:
Public cn_Mat As New ADODB.Connection
En el form1
Código:
Private Sub Form_Load()
Dim xErr
On Error GoTo xErr
Dim rs_Mat As ADODB.Recordset
Set cn_Mat = New ADODB.Connection
cn_Mat.Open "UID=sa;PWD=;SERVER=SERVER08-4A71FA;DATABASE=PRUEBA; driver={sql server}"
Exit Sub
xErr:
MsgBox "No se puede conectar a la base de datos" & " Nº de error: " & Err.Number & " | " & Err.Description, vbCritical, "Control de errores"
Err.Clear
End Sub
Private Sub Command1_Click()
Set rs_Mat = Nothing
Set rs_Mat = New ADODB.Recordset
squery_Mat = "select * from Materiales"
rs_Mat.Open squery_Mat, cn_Mat, adOpenStatic
Set DataGrid1.DataSource = rs_Mat
End Sub
Solo cambia los datos, quizas algunas lineas esten demas pero adaptalo, pudes hacer la conexion en el modulo en lugar del form_load, tambien agrega un datagrid para ver los registros de la tabla