Fjerne DB password

Jeg lægger af forskellige grunde en database til download på en offentlig webside. Jeg vil derfor gerne have, at man første gang man åbner databasen bliver promptet for password. Til dette bruger jeg
Funktioner - Sikkerhed - Angiv adgangskode til database.

I autoexec kører jeg så følgende kode:

Public Function RemovePW()
On Error Resume Next
Dim db As DAO.Database

Set db = CurrentDb

db.NewPassword "1234", ""

End Function

Dette fjerner ikke passwordet, men sætter det bare til en tom streng. Er der nogen der har et bud på en kommando, der helt fjerner databasepassword?