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