devxlogo

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

size=3>
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

size=3>
If the Database is not open, you will not have the error.

devx-admin

Share the Post: