Visual Basic - Contraseña

Hola a todos
El siguiente código sirve para imprimir una base de datos denominada "empresas.rdp" y funciona perfectamente siempre y cuando la base de datos no este protegida por contraseña.

DataEnvironment.Connections("conexion").ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.path & "\empresas.rdp" & ";Mode=Read"
DataEnvironment.Connections("conexion").Open
Set DataEnvironment.Commands("comando").ActiveConnection = DataEnvironment.Connections("conexion")
DataEnvironment.Commands("comando").CommandText = "SELECT Codigo , Nompar AS Nombre, DNINIF & CIF as NIFCIF , Tel1 AS Telefono, DirCli as Direccion FROM Empresas"

Pues bien cuando protejo la base con una contraseña por ejemplo "1234", no se donde, ni como dentro del código anterior poner la instrucción "pwd = 1234" para que siga funcionando a la hora de imprimir ya que a la hora de abrir la base y verla si encontre la solución.

Por favor ayudenme y indiquenme dentro del código que expuse donde y como colocar la parte "pwd =1234" para que siga funcionando a la hora de imprimir.

Muchas a todos por vuestra ayuda.

Set basededatos = DBEngine.Workspaces(0).OpenDatabase(direccion, False, False, ";pwd=1234")

Hola, también puedes incluir esa información en la cadena de conexión del objeto DataEnvironment, por ejemplo:

"Provider=SQLOLEDB;Server=Fernan;Database=Sidac;UID=sa;PWD=1234;"

Esta cadena sirve para conectarse mediante OLEDB a SQL Server, tendrías que modificar el proveedor, y utilizar el nombre de usuario y contraseña con la que quieras logarte a la base de datos Access.

;)