I have a problem regarding on my report because my database has a password. I have an embedded crystal report in my program and everytime i am trying to open the report it prompts me with " Server has not been opened". I don't know what code shall i put for the server to be opened


Public Sub ShowDailytimeReport(strLoc, dtmFrom, dtmTo)
Dim varreport As New rptReport1
varreport.EnableParameterPrompting = False
varreport.ParameterFields(1).ClearCurrentValueAndRange
varreport.ParameterFields(1).AddCurrentValue CStr(strLoc)
varreport.ParameterFields(2).ClearCurrentValueAndRange
varreport.ParameterFields(2).AddCurrentValue CStr(dtmFrom)
varreport.ParameterFields(3).ClearCurrentValueAndRange
varreport.ParameterFields(3).AddCurrentValue CStr(dtmTo)
CRViewer1.ReportSource = varreport
CRViewer1.EnableRefreshButton = True
CRViewer1.ViewReport
End Sub


what shall i add in that code to open the server?

i thought of the rptReport1.Database.LogOnServer ......

but it was wrong..

please help me on this.