Dim strDatei As String = StrPfad & "\MACREG.VIP"
        Dim FiStr As FileStream = New FileStream(strDatei, FileMode.Open)
        Dim StrRe As StreamReader = New StreamReader(FiStr)
        Dim s As String
 
        s = StrRe.ReadLine
        conn.Open()
        Do While s <> ""
 
            s = s.Substring(s.IndexOf("SOFTWARE")) ', s.IndexOf(" "))
            lst_ScanResult.Items.Add(s)
            'SelStr = "INSERT INTO tbl_RefLocM " & "(fehler_r) " & "VALUES('" & _
              s & "')"
            'cmd = New OleDbCommand(SelStr, conn)
            'cmd.ExecuteNonQuery()
            s = StrRe.ReadLine
        Loop
 
        conn.Close()