crystal report 4.6 with vb6

i am using crystal report 4.6 with vb6. I am unable to generate reports from a password protected access file through vb6. my codes are as follows.

strReportName = "maxusedtools.rpt"
With CrystalReport1
.Connect = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\ATMSVS.mdb; PWD=AsthaShiban@Aryan"
.ReportFileName = GetAppPath() & strReportName
.DataFiles(0) = GetAppPath() & "ATMSVS.mdb"
.Password = Chr(30) & "AsthaShiban@Aryan"
.Destination = crptToWindow
.Action = 1
End With

its urgent anybody please help

Code:

---

strReportName = "maxusedtools.rpt"
With CrystalReport1
    .ReportFileName = GetAppPath() & strReportName
    .DataFiles(0) = GetAppPath() & "ATMSVS.mdb"
    .Password = Chr(10) & "AsthaShiban@Aryan"
    .Destination = crptToWindow
    .Action = 1
End With

---