Private Sub DataReport_Initialize()
    Set Me.DataSource = frmRundholz.rsÜbersicht
End Sub

Private Sub cmdDruckenListe_Click()
    Set rsÜbersicht = New Recordset
 
    rsÜbersicht.Open "SELECT * FROM tblRundholzBerechnung, tblRundholz WHERE " _
      & _
    "tblRundholzBerechnung.KdNr = " & KdNr & " AND tblRundholz.ID = " & KdNr & _
    ";", _
    mdiVölkel.con, adOpenKeyset, adLockOptimistic
 
    rptRundholzListe.Show
End Sub