Opening an Access DB

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",
"UserName", "Password")
'Open the database
Set dB = WkSp.OpenDatabase("DataBaseName")
'Here is your code
'Don't forget to close them
dB.Close
WkSp.Close
End Sub

If, for some reason, you have an error closing the record, database, or the workspace, use the following statement: