...
 
        End if
        SQLcomm.ExecuteNonQuery()
        'Überarbeitet:
        RowCnt += 1
        If RowCnt Mod 200 = 0 Then
            BytesRead = FS.Position
            BWr.ReportProgress(CInt(BytesRead / BytesTotal * 100))
        End if
        If RowCnt Mod 10000 = 0 Then
            SQLtrans.Commit()
            SQLtrans = SQLcomm.Connection.BeginTransaction()
        End if
        'bis hier
    Loop
    SR.Close()
 
...