scusate ragazzi ho un problema ho questo codice

codice:
Set mydatabase = OpenDatabase(App.Path + "\" + "gestione1.mdb")
    Set myrecord = mydatabase.OpenRecordset("societa")
pero' mi da errore sulla seconda linea cioè mi dice:
errore run-time 13

tipo non corrispondente
eppure su un altro programma in cui l'ho usato non mi davva problemi..

da cosa dipende?

grazie mille