How to:Print Data Report without DataSource

[nickname]

Hello

I would like to print a Data Report, but in stead of filling the data report with a RS, i filled it by passing values. Now when I try to print/show my data report it gives an error. I think it has something to do with the fact that I haven't used a RS..

'werkbon aanmaken, vullen
rptWerkbon.Sections("Section4").Controls("lblTitel").Caption = "Werkbon gebouwendienst"
rptWerkbon.Sections("Section4").Controls("lblBonnr").Caption = ""

rptWerkbon.Sections("Section1").Controls("lblDatum").Caption = Format(Now, "dd-mm-yyyy")
rptWerkbon.Sections("Section1").Controls("lblGebouw").Caption = Me.cboGebouw.Text
rptWerkbon.Sections("Section1").Controls("lblSoortWerk").Caption = Me.cboSoortWerk.Text
rptWerkbon.Sections("Section1").Controls("lblAuto").Caption = Me.cboAuto.Text
'strUitv vullen met alle gebruikers
Set rsUitv = New ADODB.Recordset
rsUitv.Open "SELECT uitvoerders.naam FROM werkbon_uitvoerder,uitvoerders WHERE werkbon_uitvoerder.uitvoerder_id = uitvoerders.id AND werkbon_uitvoerder.werkbon_id = '" & Me.txtBonnr.Text & "'", conn

If rsUitv.RecordCount <> 0 Then

rsUitv.MoveFirst
Do
strUitv = strUitv + rsUitv.Fields(0)
rsUitv.MoveNext

If Not rsUitv.EOF Then
strUitv = strUitv + ", "
End If

Loop While Not rsUitv.EOF

End If
rptWerkbon.Sections("Section1").Controls("lblUitvoerders").Caption = strUitv

rptWerkbon.Show 'or rptWerkbon.PrintReport


nickname