devxlogo

Opening an Access DB

Opening an Access DB

Why Trust Us

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.

devxblackblue

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

Charlie Frank

Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
View Author
Show More