When I change the Location of Database it gives error message:
"Server Has not yet Open"..... Could you help me where did I go wrong??????
Here is my code:

Private CrxApplication As New CRAXDRT.Application
Public report As CRAXDRT.report
Private A As CRAXDRT.DatabaseTable

Private Sub Form_Load()
Dim CrxDatabasetable As CRAXDRT.DatabaseTable
Dim CrxSubreport As CRAXDRT.report
Dim lngStartPos As Long
Dim lngEndPos As Long
Dim LngIdx As Long
Dim Paths As String

Dim objSections As CRAXDRT.Sections
Dim objSection As CRAXDRT.Section

Dim objRpt As CRAXDRT.ReportObjects
Dim Sonam As String
Paths = Mid(App.Path, 1, (Len(App.Path))) & "\report\bbe\"
Set report = CrxApplication.OpenReport(Paths & "reg1.rpt", 1)
report.DiscardSavedData
Set A = report.Database.Tables.Item(1)
report.Database.LogOnServer "pdssql.dll", "(LOCAL)", "2003", "", ""
For Each CrxDatabasetable In report.Database.Tables
Sonam = Mid$(CrxDatabasetable.Location, 4)
CrxDatabasetable.Location = gDBase & Sonam
CrxDatabasetable.SetLogOnInfo "(Local)", "2003", "", ""
Next

With CRViewer1
.ReportSource = report
.ViewReport
End With

End Sub
Please help me!!!!!