Private Sub Рассчитать_Click(sender As Object, e As EventArgs) Handles Рассчитать.Click
        'On Error GoTo SaveErr

        Dim var As String
        Dim DA As OleDbDataAdapter
        Dim i As Integer
            Dim num As Integer
            Dim pos As Integer
        Dim price As Integer
        Dim n As Integer
        Dim result As Integer

        n = ComboBox1.Text
        var = "SELECT [Номер],[Количество],[Цена] FROM [Выручка]"


        Dim connection = New OleDbConnection("Provider=Microsoft." & "Jet.OLEDB.4.0;Data Source=test.mdb")
        connection.Open()
        DA = New OleDbDataAdapter(var, connection)

        Dim sest As DataTable = New DataTable("Выручка")
        sest.Columns.Add("Номер")
        sest.Columns.Add("Количество")
        sest.Columns.Add("Цена")
        DA.Fill(sest)

        For i = 0 To n - 1
            pos = sest.Rows(i)("Номер") + n
            num = sest.Rows(i)("Количество")
            price = sest.Rows(i)("Цена")
            result = 0
            result = num * price

        Next i
        TextBox6.Text = result
        connection.Close()
        'SaveErr:
        '        Exit Sub
    End Sub