Physical Database not found

[natncm70]

Hello,
I am getting error in ObjRpt.ReadRecords. The Error Message is "Physical Database not found". I am using Access Database for trial purpose. Please help me.

This is the code I am using


Dim strSystemPath
Dim strReportFile
Dim strConnectionString
Dim rsTemp
Dim strSql
Dim objApp
Dim objRpt

strSystemPath=Request.ServerVariables("PATH_TRANSLATED&quot
strSystemPath=Mid(strSystemPath,1,InStrRev(strSystemPath,"\&quot)


strConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strSystemPath & "BIBLIO.MDB;Persist Security Info=False"
strReportFile=strSystemPath & "Reports\Report2.rpt"

strSql="Select * from Authors"
Set rsTemp=Server.CreateObject("ADODB.Recordset&quot
rsTemp.Open strSql,strConnectionString
Response.Write(rstemp.fields(2))
If rsTemp.EOF and rsTemp.BOF then
Response.Write "No Data Found"
Response.End
End If

Set objApp = Server.CreateObject("CrystalRuntime.Application&quot
Set objRpt = objApp.OpenReport(strReportFile, 1)
objRpt.MorePrintEngineErrorMessages = False
objRpt.EnableParameterPrompting = False
objRpt.DiscardSavedData
objRpt.Database.SetDataSource rsTemp
objRpt.ReadRecords

Set session("oApp&quot = objApp
Set session("oRpt&quot = objRpt

If IsObject(session("oPageEngine&quot) Then
Set session("oPageEngine&quot = nothing
End If

Set session("oPageEngine&quot = session("oRpt&quot.PageEngine
Set rsTemp=nothing
Viewer = "ActiveX"
If cstr(viewer) = "ActiveX" then
%>
<!-- #include file=&quot;SmartViewerActiveX.asp&quot; -->
<%
ElseIf cstr(viewer) = &quot;HTML Frame&quot; then
' Response.Redirect(&quot;htmstart.asp&quot
Else
' Response.Redirect(&quot;rptserver.asp&quot
End If
%>

Regards