Originariamente inviato da Luke(BI)
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
Ho fatto così:

Option Explicit

Private Sub Form_Load()
Dim dbPrincipale As DAO.Database
Dim rsLotti As DAO.Recordset

Set dbPrincipale = OpenDatabase("C:\Rubrica.mdb", , True)
Set rsLotti = dbPrincipale.OpenRecordset("SELECT * FROM Rubrica")


rsLotti.MoveFirst
While Not rsLotti.EOF
cmbSeleziona.AddItem (rsLotti("id").Value & " - " & rsLotti("nome").Value)
rsLotti.MoveNext
dbPrincipale.Close
Wend
End Sub

ma mi dice che il formato del database C:\Rubrica.mdb non è riconosciuto.
Ho sbagliato qualcosa?