Skriv til passwordbeskyttet DB (access)

Der er masser af spørgsmål om emnet, men kan ikke lige få det til at virke... Jeg har en database med passwordet 'Password'. Hvordan åbner jeg den?

Min kode til en database UDEN password:

Set mDB = Workspaces(0).OpenDatabase(App.Path & "\DB\Nyheder.mdb")
  Set mRec = mDB.OpenRecordset _
    ("SELECT * FROM Nyhedstabel ORDER BY Id, pwd='solist'", dbOpenDynaset)

  With mRec
      .AddNew
      !NyhedsOverskrift = LTrim(txtOverskrift.Text)
      !Nyhedstekst = LTrim(txtNyhedstekst.Text)
      !NyhedsDato = Format(Now, "dd-mm-yyyy")
      .Update
  End With

Det virker fint på en database uden password. Men bruger jeg en database MED password og retter til fx.

Set mDB = Workspaces(0).OpenDatabase(App.Path & "\DB\Nyheder.mdb", , , "Password")

får jeg fejlen "adgangskoden er ikke gyldig"

Hvordan får jeg angivet passwordet?