se posso consigliare io farei così


Dim dbPrincipale As DAO.Database
Dim rsLotti As DAO.Recordset

Set dbPrincipale = OpenDatabase(Path del DBACCESS, , True)
Set rsLotti = dbPrincipale.OpenRecordset("SELECT [tbl Lotti MP].* FROM [tbl Lotti MP]")


rsLotti.MoveFirst
While Not rsLotti.EOF

........

dbPrincipale.Close


ecc...

se può essere d'aiuto io ho fatto così fammi sapere