[RESOLVED]report cannot refresh data

[little_mouse]

hello,
i make a report using crystal report designer 8.5 and VB6.In first run, the report display the data i want.secondly i change the tangggal variable and operator variable but it doesnt display new data .here is my code :

Option Explicit
Dim Report As New rpt_total_penambahan
Dim tanggal, operator As String
 
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
crv_total_penambahan.Zoom (100)
tanggal = total_penambahan.cmb_tanggal.text ' date
operator = total_penambahan.cmb_operator.text ' string
Unload total_penambahan
Call init_database
rs.Open "SELECT * from qry_total_penambahan where tanggal_entry=#" + tanggal + "# and operator='" + operator + "'order by departemen", con, adOpenKeyset, adLockPessimistic
Report.Database.SetDataSource rs
crv_total_penambahan.ReportSource = Report
crv_total_penambahan.ViewReport
Screen.MousePointer = vbDefault
End Sub
 
Private Sub Form_Resize()
crv_total_penambahan.Top = 0
crv_total_penambahan.Left = 0
crv_total_penambahan.Height = ScaleHeight
crv_total_penambahan.Width = ScaleWidth
 
End Sub

thanks for your help