Dim tmpRec As New ADODB.Recordset
 
        If rs.RecordCount = 0 Then
        myClose tmpRec 'Funktion zum Schließen des Recordsets, falls es offen 
        ' ist
        With tmpRec
            .Fields.Append "Anlage", adVarChar, 45
            .Fields.Append "unsichtbar", adVarChar, 45
            .Fields.Append "Einzelpreis", adDouble
            .Fields.Append "Anzahl", adInteger
            .Fields.Append "Abr_Jahr", adInteger
            .Open
            .AddNew
            .Fields("Anlage").Value = cmbAnlage.Text
            !unsichtbar = "Weisse Flotte Baldeney"
            !Einzelpreis = 0
            !Anzahl = 0
            !Abr_Jahr = cmbJahr.Text
            .Update
        End With
    End If
    If rs.RecordCount = 0 Then
        report.Database.SetDataSource tmpRec
    End If