Password til access-databasen

I din forbindelses streng angiver du password PWD eller PassWord

Hvis du bruger Data1:

Private Sub Command1_Click()
Dim psw

psw = \"Mit Password\"

Data1.DatabaseName = App.Path & \"\\Database.mdb\"
Data1.RecordSource = \"Navn\"
Data1.Connect = \";pwd=\" & psw \'Mit Password

End Sub



Hvis du bruger \"Reference Microsoft DAO 3.5x Object Libary\":

Option Explicit

Dim db As Database \'Reference
Dim rs As Recordset \'Reference

Private Sub Command1_Click()
Dim psw

psw = \"Mit Password\"

Set db = OpenDatabase(App.Path & \"\\Database.mdb\", False, False, \";pwd=\" & psw) \'Mit Password
Set rs = db.OpenRecordset(\"Navn\")

End Sub