Visual Basic - Ayuda con bd y contraseña

Hola a todos/as.

Necesito que alguien me diga el código para poder abri una bd con contaseña.-

Quiero que desde el programa no me pida la contraseña, sólo en caso de que quieran abrir la bd directamente (por seguridad claro).-

Gracias de antemano.-

Dim cnn1 As ADODB.Connection
Dim rstEmployees As ADODB.Recordset
Dim strCnn As String
Dim varDate As Variant

mira no se que conneccion a datos estes usando pero este es para ado
' Open connection.
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
Set cnn1 = New ADODB.Connection
cnn1.Open strCnn