Das geht dann so: Static Acc As Access.Application Dim db As DAO.Database, DbName As String Set acc = New Access.Application Acc.Visible = True DBName = "C:\MyPath\MyMDB.MDB" Set db = acc.DBEngine.OpenDatabase(DBName, False, False, ";PWD=mypassword") Acc.OpenCurrentDatabase DBName DB.CloseSiehe auch: How to Open a Password-Protected Database Through AutomationReinhard

Gruß aus dem Norden

Reinhard

---

Bitte immer die Access-Version angeben

---

 

geschrieben von Reinhard Kraasch , 04.01.2001, 16:39 Uhr , 26 mal gelesen