Unable to access the table from backend password protected .mdb

[Idris]

Can anyone help in here to access the backend password protected file from server

Private Sub AccessCreditNotes()

Dim dbsBackEnd As Database
Dim rst1 As Recordset
Dim FileLocation As String

FileLocation = "\\Server\access\Credit Notes ver2000 - 003.mdb"

Set dbsBackEnd = DBEngine.Workspaces(0).OpenDatabase(FileLocation)
Set rst1 = dbsBackEnd.OpenRecordset("DrCr Note", dbOpenDynaset)

Do While Not rst1.EOF
Debug.Print rst1!DrCrNoteNo, rst1!DivOnly, rst1!ShortDesc
rst1.MoveNext
Loop

rst1.Close
Set dbsBackEnd = Nothing

End Sub

Please note i have the Password as well as full access to the Server

Thanks