Private Sub RechnungSchreiben()
    hRs_Close
    If bNeu = True Then
       sSQL = "SELECT * FROM tblrechnung WHERE RecNr = 999999"
       hRs.CursorLocation = adUseClient
       hRs.Open sSQL, oConn, adOpenKeyset, adLockOptimistic
       hRsOpen = True
       hRs.AddNew
    Else
       sSQL = "SELECT * FROM tblrechnung WHERE RecNr = '" & RechnungsNr & "'"
       hRs.CursorLocation = adUseClient
       hRs.Open sSQL, oConn, adOpenKeyset, adLockOptimistic
       hRsOpen = True
    End If
 
    With Me
        hRs!RecNr = .sevRechnung
        hRs!RecKunde = .sevKundenNr
        hRs!RecKontakt = KontaktKunde
        ...
        hRs.Update
        ' ---------------------- History schreiben
        If bAusAuftrag = True Then
           AuftragHistory
        End If
 
        dRs_Close
        If bChange = True Then
            sSQL = "SELECT * FROM tblhistory WHERE KdVorgang = '" & hRs!RecNr & _
              "' And kdVart = 3"
            dRs.CursorLocation = adUseClient
            dRs.Open sSQL, oConn, adOpenKeyset, adLockOptimistic
            dRsOpen = True
            If dRs.RecordCount = 0 Then
                dRs.AddNew
                bChange = False
            End If
        Else
            sSQL = "SELECT * FROM tblhistory WHERE KdVorgang = 999999"
            dRs.CursorLocation = adUseClient
            dRs.Open sSQL, oConn, adOpenKeyset, adLockOptimistic
            dRsOpen = True
            dRs.AddNew
        End If
 
        dRs!KdAdressNr = hRs!RecKunde
        dRs!KdVorgang = hRs!RecNr
        dRs!kdVart = 3
 
        ....
        ....
 
        dRs.Update
        dRs_Close
 
        ' Hier kommt dann der Error **************
    
        If hRsOpen = True Then
            hRs.Close
            Set hRs = Nothing
            hRsOpen = False
        End If

   End With
End Sub