DIM DB As DataBase
DIM Prp As Property
DIM b As Boolean
 
Set DB = DBEngine.OpenDatabase("FileName", False, False, ";pwd = Test")
 
b = False
For EACH Prp In DB.Properties
      If Prp.Name = "UserPwd" Then b = True
Next
 
If b Then
    lblUPwd.Caption = DB.Properties("UserPwd").Value
Else
    DB.CreateProperties("UserPwd", dbText, lplUPwd.Caption)
End If