s = StrRe.ReadLine
        LaufNr = 0
 
 
        Do While s <> ""
            Dim sBeginn, sEnd As String
            sBeginn = "2 "
            sEnd = " "
            LaufNr = LaufNr + 1
            s = s.Substring(s.IndexOf(sBeginn) + sBeginn.Length, s.IndexOf( _
              sEnd, sBeginn.Length) - s.IndexOf(sBeginn) - sBeginn.Length)
            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