DBasePassword

Dim db As Database
Set db = OpenDatabase("c:\mydir\mydb.mdb", True, False, ";pwd=mypassword")

'Se dovesse esser necessario variare la password bastera' usare il

'metodo NewPassword :

db.NewPassword = "mypassword","newpassword"

'La caratterisitca di poter assegnare una password ad un database e'

'stata introdotta con la versione 3.0 del motore Jet, con le versioni

'precedenti occorrera' implementare la sicurezza a livello di utenti

'o di gruppi. E' da notare che l'utilizzo di una password puo'

'generare degli errori a runtime, comunque intercettabili con un

'On Error.