Private Sub cmd_abgleich_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles cmd_abgleich.Click
        Dim fname_er As String
        Dim fname_belegnr As String
        Dim line_er As String = ""
        Dim line_belegnr As String = ""
        Dim belegnr_belegnr As String = ""
        Dim belegnr_er As String = ""
        Dim tmp_bn As ArrayList = New ArrayList
        Dim dbpath As String = System.IO.Path.Combine(Application.StartupPath, _
          "erhadb.mdb")
        Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
        "Source=" & dbpath & ";")
        Dim SQL_bn As String = "INSERT INTO [tbl_belegnr] VALUES (@p1)"
        Dim SQL_er As String = "INSERT INTO [tbl_erfile] VALUES (@p10)"
        Dim cmd_bn As New OleDbCommand(SQL_bn, conn)
        Dim cmd_er As New OleDbCommand(SQL_er, conn)
        Dim p1 As OleDbParameter = cmd_bn.Parameters.Add("p1", _
          OleDbType.Integer)
        Dim p10 As OleDbParameter = cmd_er.Parameters.Add("p10", _
        OleDbType.Integer)
        Dim cnt_bn As Integer
        Dim cnt_er As Integer
 
 
        fname_er = txt_er.Text
        fname_belegnr = txt_belegnr.Text
 
        Dim fs_er As FileStream = New FileStream(fname_er, _
          FileMode.OpenOrCreate, FileAccess.ReadWrite)
        Dim fs_bn As FileStream = New FileStream(fname_belegnr, _
        FileMode.OpenOrCreate, FileAccess.ReadWrite)
        Dim sr_er As StreamReader = New StreamReader(fs_er)
        Dim sr_bn As StreamReader = New StreamReader(fs_bn)
 
 
        Try
            conn.Open()
            Do While sr_bn.Peek <> -1
                line_belegnr = sr_bn.ReadLine()
                belegnr_belegnr = line_belegnr.Substring(0, 7)
                p1.Value = belegnr_belegnr
                cnt_bn = cmd_bn.ExecuteNonQuery()
            Loop
        Catch ex As OleDbException
            Console.WriteLine(Err.Description)
            MessageBox.Show(Err.Erl & " " & ex.Message, "Fehler", _
              MessageBoxButtons.OK, _
               MessageBoxIcon.Exclamation)
        Finally
            conn.Close()
            fs_bn.Close()
        End Try
 
        Try
            conn.Open()
            Do While sr_er.Peek <> -1
                line_er = sr_er.ReadLine
                belegnr_er = Mid(line_er, 12, 7).ToString
                'p10.Value = MIX1
                p10.Value = belegnr_er
                'p12.Value = MIX2
                cnt_er = cmd_er.ExecuteNonQuery()
            Loop
        Catch ex As OleDbException
            MessageBox.Show(Err.Source & " " & ex.Message, "Fehler", _
              MessageBoxButtons.OK, _
               MessageBoxIcon.Exclamation)
        Finally
            conn.Close()
            fs_er.Close()
        End Try
 
abort:
    End Sub