parameter problems

[olibos]

Hei dear programmers,

i have a new problem,
when i run the next code for the second time
my result is nothing ....
i see my report(with the labels) with no values
strange ....
could somebody tell my what I'm doing this time wrong



Public zoekBe As Integer
Dim rs As New ADOR.Recordset

Private Sub Form_Load()
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
DoEvents
Report.RecordSelectionFormula = "{afspraak.afspraakID} = " & zoekBe & ""
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
End Sub

Public Sub laad_form(zoekBe_new As Integer)
End Sub
zoekBe = zoekBe_new
Form_Load
End Sub


It is simple code
but you can use it only ones.
wat did i forgot?
Please help this student

Ollie