Append Query Using VBA

[markwakelin]

I am using VB6 and have connected to an Access database.
I have then wrote a function to "append" all data from this database into another database.
However, this works fine so long as my "new" database does not have a "database password".
Is there any way I can pass the password via VB in an append query structure ??

Mark

 

[dcx693]

Here's some sample code on how to open another database using user-level security:
Sub TestCode()
Dim wks As DAO.Workspace
Dim dbs As DAO.Database

Set wks = DBEngine.CreateWorkspace("databasename", "userid", "password")
Set dbs = wks.OpenDatabase("c:\databasename.mdb")

End Sub