[kapetang]

Γιώργο, δοκίμασε τον κώδικα:

Dim db As DAO.Database, strFullNameDB As String
    
    'εδώ ορίζεται το πλήρες όνομα της βάσης δεδομένων (για παράδειγμα)
    strFullNameDB = "c:\Anestaki\NameBasis.mdb"
    
    'εδώ ανοίγει η βάση
    Set db = OpenDatabase(strFullNameDB)
    
    'εδώ κλείνει η βάση
    db.Close