Access: Problem bei Ausgabe Bericht

Private Sub Befehl6_Click()

Dim strSQL As String
Dim wert

Dim DB As dao.Database
Dim rs As dao.Recordset
Dim strDatei As String, strWhere As String
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
'Dim Betreff As String: Betreff = "Ihr Monatlicher Bericht"  
Dim Nachricht As String, an As String, att1
Dim oApp As New Outlook.Application
Dim oEmail As Outlook.MailItem
Dim fileName As String, todayDate As String
Dim Signature As String
   
   

   
TXT1 = [Forms]![frm_Rechnung]![RGDatum].Value
HöchsterWert = DMax("RG_Nr", "tbl_Rechnungsnummern")  
umeinserhöhenhöchsterwert:
HöchsterWert = HöchsterWert + 1
    Set DB = CurrentDb
    strSQL = "SELECT * FROM abf_Rechnung "  
    Set rs = DB.OpenRecordset(strSQL, dbOpenDynaset)
    Do Until rs.EOF
    
 
        rpt_Anrede = rs.Fields("Anrede").Value  
        rpt_Vorname = rs.Fields("tbl_Rechnungsanschrift_Patient.Vorname").Value  
        rpt_Name = rs.Fields("tbl_Rechnungsanschrift_Patient.Nachname").Value  
        rpt_Strasse = rs.Fields("tbl_Rechnungsanschrift_Patient.Strasse").Value  
        rpt_PLZ = rs.Fields("tbl_Rechnungsanschrift_Patient.PLZ").Value  
        rpt_Ort = rs.Fields("tbl_Rechnungsanschrift_Patient.Ort").Value  
        strDatei = "S:\DHO\" & HöchsterWert & ".pdf"  

        strWhere = strSQL & " WHERE [Monat] = '" & TXT1 & "' "  
        DoCmd.OpenReport "rpt_Rechnung", acViewDesign  
        Reports![rpt_Rechnung].RecordSource = strWhere
        DoCmd.OpenReport "rpt_Rechnung", acViewPreview, , strWhere, acWindowNormal