Dal menu Proggetto\Riferimenti cerca e spunta:
Micorsoft ActiveX Data Objects 2.5 Library

Questo per collegare la BD, inseriscelo in un Modulo:

Option Explicit

Public Cn As New ADODB.Connection
Public Rs As New ADODB.Recordset
Const Nome_db = "Nome Del Tuo DB.mdb"

Sub connetti()
With Cn
.ConnectionString = "Provider = Microsoft.Jet.OleDB.4.0;" & _
"Data Source=" & App.Path & "\" & Nome_db
'nella prima riga si specifica il provider
'nella seconda il percorso al db
.ConnectionTimeout = 5 'numero dei secondi di timeout
.CursorLocation = adUseClient 'tipo di cursore
.Mode = adModeShareDenyNone 'nessuna limitazione
.Open 'apertura ricordarsi di chiuderla
End With
With Rs
.ActiveConnection = Cn ' imposta a che connessione si riferisce
.LockType = adLockOptimistic ' imposta il tipo di lock
End With
End Sub

Nel Load del Form:

Call connetti

If Cn.State <> 0 Then ' Se la connessione è aperta
Rs.Open SQL_ARTICOLI '"SELECT * FROM Articoli" ' apre il recordset leggendo tutti i campi dalla tabella
' TBTessuti
If Rs.State <> 0 Then 'se non si sono verificati errori
If Not (Rs.EOF And Rs.BOF) Then 'se il recordset non è vuoto
Me.txtCodice.Text = Rs("Codice")
Me.txtDescrizione.Text = Rs("Descrizione")
End If
Else
MsgBox "Errore durante l'apertura della tabella", vbCritical
End If
Else
MsgBox "Errore durante l'apertura della connessione", vbCritical
End If

Spero sia quello che cerchi, cmq nel forum ho visto che questo tema sia già stato risolto da altre persone, prova a fare una ricerca.
Saludos!