.ConnectionString ADO

momentan sieht der Code so aus:

Dim cnDatabase As ADODB.Connection
Set cnDatabase = New ADODB.Connection
With cnDatabase
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "J:\boersenticker.mdb"
.Open
End With

Dieses Codefragment funktioniert auch, allerdings nur, wenn Access keinen Kennwortschutz hat. Was nun?
Irgendwo pwd="test" einbauen? Aber Wo? Wer weiß Rat?

Danke
Peter