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.CloseEnd Sub
If, for some reason, you have an error closing the record, database, or the workspace, use the following statement:
Set Rcd = NothingSet dB = NothingSet WkSp = Nothing
If the Database is not open, you will not have the error.