Visual Basic.NET - bd con contraseña

hola foreros!!
Tengo un problema a la hora de mostrar un reporte de una base de datos con contraseña. Siempre me sale una pantalla pidiéndome la contraseña y posteriormente me muestra el informe.
¿Como le puedo meter la contraseña en tiempo diseño?
gracias

Especificalo dentro del ConnectionString de tu objeto Connection
Algo como:

strPath = "TuDatos.mdb"
strPassword = "TuPassword"

Dim Connection As String "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strPath & ";Jet OLEDBatabase Password=" & strPass & ";User ID=username;Persist Security Info=True"

Try
Dim cn As New OleDbConnection(Connection)

cn.Open()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try