Private Sub DataReport_Initialize()
 
constart
 
Dim Daten2 As New ADODB.Recordset
 
Set Daten2 = New ADODB.Recordset
 
With Daten2
    .ActiveConnection = DB
    .Source = "SELECT Empfangsbestätigung.ED_KundenNr," & _
      "Empfangsbestätigung.ED_Handy, Empfangsbestätigung.ED_EMEI," & _
      "Empfangsbestätigung.ED_Datum, Kunden.KD_KVorname, Kunden.KD_KName FROM" & _
      "Empfangsbestätigung, Kunden WHERE Empfangsbestätigung.ED_EMEI='" & _
      var_EMEI & "' AND Kunden.KD_KundenNr=Empfangsbestätigung.ED_KundenNr"     _
       ' '" & var_KundenNr & "'"
    .Open
End With
 
With Empfangsbest_Report
    Set .DataSource = Daten2
 
    With .Sections("Bereich1").Controls
        .Item("Text1").DataField = Daten2.Fields(0).Name
        .Item("Text2").DataField = Daten2.Fields(1).Name
        .Item("Text3").DataField = Daten2.Fields(2).Name
        .Item("Text4").DataField = Daten2.Fields(3).Name
        .Item("Text5").DataField = Daten2.Fields(4).Name
        .Item("Text6").DataField = Daten2.Fields(5).Name
    End With
 
    .Show
 
End With
 
End Sub