Visual Basic - AYUDA URGENTE

Abro una base de datos con Dao con el siguiente codio en un modulo.bas y no se donde poner la contraseña.

Public bdNegocio As Database
Public rstProductos As Recordset

Sub AbrirBase()
Set rstProductos = bdNegocio.OpenRecordset("Productos", dbOpenTable)
end sub

Gracias de antemano

Con esa instruccion lo que abres es el recordset, primero hay que abrir la base de datos
Set bdnegocio = opendatabase("mibasedatos", false,false , "pwd=micontraseña")