I pasting the code here.

Code:
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset


Dim mstr As String
mstr = App.Path & "\Library.mdb"
With conn
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & mstr
    conn.Properties("Jet OLEDB:Database Password") = "12345"
End With
The exact error is :

Code:
Run Time error -21....

Not a valid password
Then it highlights the .open Line.