Private Sub Lageroppdatering_Click(sender As Object, e As EventArgs) Handles Lageroppdatering.Click
        'Dim blodtype As String = cbBestill1.SelectedItem.ToString()
        'Dim teller As Integer = CInt(tellerAntallUtstyr.Value())
        'Dim vareTab As New DataTable()
        'Dim vareid As String
        'Dim utstyrTab As New DataTable()
        'Dim salgspris As String = 0
        'Dim innkjopspris As String = 0

        'vareTab = Vare.getVareIDByVarenavn(varenavn)
        'For Each row In vareTab.Rows
        '    vareid = row(0).ToString()
        'Next row

        'utstyrTab = utstyr.getUtstyrByID(vareid)
        'For Each rad In utstyrTab.Rows
        '    salgspris = rad("pris")
        '    innkjopspris = rad("innkjopspris")
        'Next rad


        'For i As Integer = 0 To teller - 1
        '    utstyr.regUtstyr(varenavn, salgspris, "0", innkjopspris)
        'Next i
    End Sub