Visual Basic - Contraseña

esto funciona bien pero si le pongo contraseña a la base de datos agenda sale error si alguin lo puede agregar lo que le falta por favor

Dim DBS As Database

Set DBS = OpenDatabase("D:\temporal.mdb")
' selecciona todos los registros de la tabla Nuevos
' Clientes y los agrega a la tabla Clientes.
DBS.Execute " INSERT INTO DSOBRES IN '..\superagenda\agenda.mdb' " _
& "SELECT * " _
& "FROM temporal "

DBS.Close

Mira en el manual para incorporar el usuario y la contaseña en la instruccion para abrir la base de datos (creo que es así)

Set DBS = OpenDatabase("D:\temporal.mdb", , , "MS Access;PWD= tuclavede la base de datos)

Buceando por la Web he encontrado una parecida

Set DBS = OpenDatabase("D:\temporal.mdb",,, "pwd=TuContraseña")

ya encontre la solucion es esta
lo comparto

Dim DBS As Database

Set DBS = OpenDatabase("D:\temporal.mdb")

DBS.Execute "INSERT INTO [..\superagenda\agenda.mdb;pwd=pelotin251981].DSOBRES SELECT * FROM temporal"

DBS.Close