Where Did I Go Wrong in Code?????

With help of you Guys I did, I try to change database of my crystal report but Record of field remains same..... and seems report is pointing to same database; Here is my code

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

Private Sub Form_Load()
Dim CrxDatabasetable As CRAXDRT.DatabaseTable
Dim CrxSubreport As CRAXDRT.report
Dim Paths As String

Paths = Mid(App.Path, 1, (Len(App.Path))) & "\report\bbe\"
Set report = CrxApplication.OpenReport(Paths & "Reg1.rpt", 1)

For Each CrxDatabasetable In report.Database.Tables
CrxDatabasetable.SetLogOnInfo "SONAMG\ABC","2003, "sa", ""
Next

report.SelectPrinter "HP LaserJet 2200 Series PCL 6", "Duplicate", "DOT4_001"

report.PrintOut True

End Sub

When I get print out it is found that rocords have be read from Database existing database not from 2003.
Or did I made mistake in some where else or left some Important code:
:confused:

Set the DiscardSavedData property (?not exactly sure if the property nameis correct) to True.
Check the Location property of each Table object.