Access Abfrage kommt nicht zum nächsten Dastensatz

Private Sub Muellsystem_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
   
   
ATT1 = "S:\test1.csv"  
 'exportincsv  
HöchsterWert = DMax("RGNummer", "Rechnungsnummern")  
umeinserhöhenhöchsterwert:
HöchsterWert = HöchsterWert + 1

    Set DB = CurrentDb
    strSQL = "SELECT * FROM Müllsystem"  
    Set rs = DB.OpenRecordset(strSQL, dbOpenDynaset)
    Do Until rs.EOF
    
  Set objOutlook = CreateObject("Outlook.Application")  
  Set objOutlookMsg = objOutlook.CreateItem(0)
  
   strDatei = "S:\ausgangsrechnung\" & HöchsterWert & ".pdf"  
        Anrede = rs.Fields("Anrede")  
        mailadresse = rs.Fields("Email").Value  
        Vorname = rs.Fields("Vorname").Value  
        NameE = rs.Fields("Name").Value  
        Strasse = rs.Fields("Straße").Value  
        Postleitzahl = rs.Fields("Postleitzahl").Value  
        Ort = rs.Fields("Ort").Value  
        Objekt1 = rs.Fields("Eigentümer.Objekt-Nr").Value  
        Verwaltung = rs.Fields("Verwaltung").Value  
        
        
     
        strWhere = strSQL & " WHERE [Eigentümer.Objekt-Nr] = '" & rs![Eigentümer.Objekt-Nr] & "' "  
        DoCmd.OpenReport "Müllsystem", acViewDesign  
        Reports![Müllsystem].RecordSource = strWhere
        DoCmd.OpenReport "Müllsystem", acViewPreview, , strWhere, acWindowNormal  
        DoCmd.OutputTo acOutputReport, "Müllsystem", acFormatPDF, strDatei, False  


Set DBG = CurrentDb()


Set rsg = DBG.OpenRecordset("Rechnungsnummern", dbOpenDynaset)  
 
    rsg.AddNew
        rsg!RGNummer = HöchsterWert
        rsg!Objektnummer = Objekt1
        
       
    rsg.Update
rsg.Close

DBG.Close
      

    Loop
    rs.Close
    'rs.Update  
    Set rs = Nothing

    Set DB = Nothing

End Sub