VB 6 - Zugriff auf verschlüsselte MDB

[Thias78]

Hallo Leute!

Wie kann ich von VB6 aus über DOA auf eine verschlüsselte MDB zugreifen. Bzw. auf eine DB, die ein Benutzerkonto / Adminkonto hat?

Danke!

[Thias78]

Ich hab die Lösung eben gefunden!

normale Anmeldung an der Datenbank:

Set DatBas = DAO.OpenDatabase(DBName, False, False, "MS Access;pwd=meinPWD")

komprimieren der Datenbank

CompactDatabase DBName, DBName & 1, , , "MS Access;pwd=meinPWD"

If Dir(DBName ) <> "" Then Kill DBName 


CompactDatabase DBName & 1, DBName, , , "MS Access;pwd=meinPWD"

If Dir(DBName & 1) <> "" Then Kill DBName & 1