connessione access 2000

Tra i riferimenti inserire microsoft DAO 3.6

Option Explicit

dim dbArchivio As Database
dim rsTabellA As DAO.Recordset

Dim nomedatabase As String
Dim nometabella As String


Private Sub Form_Load()

  nomedatabase = "aaaaaaaa.mdb"
   nometabella = "bbbbbb"

  Set dbArchivio = DBEngine(0).OpenDatabase(nomedatabase)
  Set rsTabellA = dbArchivio.OpenRecordset(nometabella)

End Sub