Opening an Access DB

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.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.

See also  Comparing different methods of testing your Infrastructure-as-Code

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist