Do While s <> ""
            LaufNr = LaufNr + 1
            s = s.Substring(s.IndexOf("2 ")) ', s.IndexOf(" "))
            lst_ScanResult.Items.Add(LaufNr & Chr(9) & s)
            SelStr = "INSERT INTO tbl_RefLocM " & "(fehler_r, " & "IDRefLocM )" & _
              "" & "VALUES('" & s & "','" & LaufNr & "')"
            cmd = New OleDbCommand(SelStr, conn)
            cmd.ExecuteNonQuery()
            s = StrRe.ReadLine
        Loop