Visual Basic - Esto es Desesperante

Hola necesito vuestra ayuda, tengo el siguiente código para abrir una base de datos a la hora de necesitar imprimirla con el DataReport, pues bien esta base de datos esta protegida con una contraseña por ejemplo"1234" este codigo funciona bien si la base no esta protegida, ojo no pregunto como abrir la base para visualizar los datos que eso ya lo tengo hecho, lo que necesito es que a este código se le añada la pequeña instrucción que me permita abrir la base de datos cuando tiene contraseña y poder imprimirlo con el DataReport este es el código que necesito modificar:

Private Sub Imprimir(tipo As Byte)
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, Tel1 AS Telefono FROM Empresas"

DR_Empresas.Caption = Me.Caption

Set DR_Empresas.DataSource = DataEnvironment
If tipo = 0 Then
DR_Empresas.Show vbModal, Me
ElseIf tipo = 1 Then
DR_Empresas.PrintReport
End If

DoEvents
DataEnvironment.Connections("conexion").Close
End Sub

He mirado por todos los sitios toda la información que habla sobre el tema y es mas ya me han intentado ayudar pero no funciona las soluciones que me han dado, repito si la base no tiene contraseña este código funciona bien, el problema es cuando tiene contraseña
Graci

la cadena connectionstring incluye una opción para la contraseña de la base de datos, es opcional, pwd=contraseña, tb se puede indicar el identificador del usuario uid=identific.
Supongo q añadiendo esto te dejará trabajar con la base de datos libremente, ya sea con el datareport o con cualquier tipo de informes.

Espero q sea este tu problema.

Gracias Luisvie por tu ayuda, pero lamentandolo no funciona.
Como ya indique he consultado mucho antes de dirigirme al foro, pero la verdad es que efectivamente la cadena connectionstring incluye la opción de añadir el usuario y la contraseña pero en ese código que puse para que buscaramos la solución lo he intentado todo, lo he puesto creo que en todos los lugares posibles y de todas las formas imaginables incluso a veces contra toda logica pero nada sigue sin funcionar, y el problema es que tengo que proteger la base.
Gracias