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