codice:
' Apro la connessione: 
Dim Stringa As String
Stringa = "Select * from Tbl_Utente"
Set rs = New adodb.Recordset
rs.Open Stringa, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database.mdb", adOpenKeyset, adLockOptimistic, adCmdText

' Chiude la connessione: 
rs.Close
Set rs = Nothing

Ciao.