Before starting, add the Microsoft DAO 3.51 Object Library Reference.
Private Sub Form_Load()
Dim WkSp As Workspace
Dim dB As Database
'Define the file .MDW where are the users and passwords used to Access the database
dbengine.SystemDB = "System.mdw"
'Create a WorkSpace with the user's information
Set WkSp = dbengine.CreateWorkspace("WkSpName",
'Open the database
Set dB = WkSp.OpenDatabase("DataBaseName")
'Here is your code
'Don't forget to close them
If, for some reason, you have an error closing the record, database, or the workspace, use the following statement:
Set Rcd = Nothing
Set dB = Nothing
Set WkSp = Nothing
If the Database is not open, you will not have the error.