For simple Microsoft Access security, set the database password from the Security item under the Tools menu in Access, select Set Database Password, and enter a password. To use the database in VB, pass a value along with the “pwd” keyword to the SOURCE value of the OpenDatabase method:
Dim db as DatabaseDim Wkspc as WorkSpacesDim strPass as STRINGstrPass = ";pwd=PASSWORD"Set Wkspc = Workspaces(0)Set db = Wkspc.OpenDatabase(DBName, False, False, strPass)