:di56: questi sono degli esempi ke utilizzo x il vb5-6 nn so se possano andarti bene anke sul vbnet, fammi sapere ciauz.

codice:
Dim dbase As Database 
Set dbase = OpenDatabase(App.Path & "\db1.mdb") 

Per impostare una password:   dbase.NewPassword = "","aaa" 
 
Per modificare una password:   dbase.NewPassword = "aaa","bbb" 
 
Per eliminare una password:   dbase.NewPassword = "aaa","" 
 
Per aprire un DB con password: Senza DataControl: 1° metodo: Set dbase = OpenDatabase(App.Path & "\db1.mdb") 
   dbase.Connect = "PWD=aaa" 
 
  2° metodo: Set dbase = OpenDatabase(App.Path & "\db1.mdb", False, False, "PWD=;aaa") 
 
 Con DataControl:  Data1.DatabaseName="db1.mdb" 
   Data1.Connect=";PWD=aaa"