How Can I Get Report In Stimulsoft?

See more:

VB

hi my friends.

i have program in vb.net and i use stimulsoft for reporting.

when i click report button for first time , it work but in secend time , report doesnt show nothing.
what is the problem.
this is my code.

Dim pc As New PersianCalendar
Dim ShamsiDate As String
ShamsiDate = pc.GetYear(DateTime.Now).ToString + "/" + pc.GetMonth(DateTime.Now).ToString() + "/" + pc.GetDayOfMonth(DateTime.Now).ToString()
Dim ShamsiTime As String = pc.GetHour(DateTime.Now).ToString + " : " + pc.GetMinute(DateTime.Now).ToString
Report1.Dictionary.Variables.Add((New StiVariable("Date", "Time", CType(GetType(String), Type), ShamsiTime, False)))
Report1.Dictionary.Variables.Add((New StiVariable("Date", "ShamsiDate", CType(GetType(String), Type), ShamsiDate, False)))

Dim da3 As New SqlDataAdapter
Dim dtuser As New DataTable
da3 = New SqlDataAdapter("select * from Tbl_NewUser order by family", con)
da3.Fill(dtuser)

Dim ds As New DataSet
ds.Merge(dtuser)
ds.Tables(0).TableName = "dtuser"
Report1.RegData(ds)
Report1.Show()
Report1.Load("Report1.mrt")