I did something like this:

private report2 As ReportDocument

in load:

report2 = New ReportDocument
report2.Load("r eport1.rpt")
report2.SetData baseLogon(UserN ame, UserPassword)

report2.Databas e.Tables(0).Set DataSource(data table1)
report2.Refresh ()
cristalViewer1. ReportSource = report2