Do Until RSKassenzeichenAccess.EOF = True
        lngKassenzeichen = lngKassenzeichen + 1
        bolKassenzeichen = False
        'Die Kassenzeichen aus der Access-Datenbank bekommen die "Punkte" 
        ' rausgefiltert
        strKassenzeichen = Replace(RSKassenzeichenAccess!kassenzeichen, ".", "")
        If Len(strKassenzeichen) = 12 Then
            'Aufruf der Funktion KassenzeichenOracle
            Call KassenzeichenOracle
            If bolBoolean = False Then
                'Kassenzeichen aus der Access-DB und der Oracle-DB werden 
                ' verglichen
                If strKassenzeichen = Trim(RSKassenzeichenOracle!om_altverf) _
                  Then
                    bolEigentumswechsel = True
                    'Aufruf der Funktion PKCheck
                    'Die Funktion untersucht ein Kassenzeichen auf 
                    ' Eigentumswechsel und
                    'Sonderfälle und protokolliert diese in Textdateien
                    Call PKCheck(RSKassenzeichenOracle!nach_fad, _
                      RSKassenzeichenOracle!nach_objnr, _
                      RSKassenzeichenOracle!stpfl_end)
                    'Kassenzeichen aus der Access-DB wird mit dem Kassenzeichen 
                    ' aus der
                    'Oracle-DB überschrieben
                    If bolKassenzeichen = True Then
                        RSKassenzeichenAccess!kassenzeichen = Trim( _
                          strKassenzeichenNeu)
                        bolKassenzeichen = False
                    End If
                End If
            End If
        End If
        RSKassenzeichenAccess.MoveNext
        DoEvents
    Loop