Dim db As Database Set db = OpenDatabase("c:\1.mdb", False, False, ";pwd=motdepasse")
Public ws As Workspace Public rs As Recordset Public db As Database Private Sub Form_Load() Set ws = DBEngine.Workspaces(0) Set db = ws.OpenDatabase("c:\datatest.mdb", False, False, "MS Access;PWD=abcdefghij") db.Close End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question