Dim DBFileName As String
Dim DBPassWord As String
Dim db	      As DAO.Database

DBFileName = "Pfad/Dateiname"
DBPassWord = "Datenbankpasswort"

Set db = OpenDatabase(DBFileName, False, False, ";Pwd=" & DBPassWord)