[ملهمـ]

أخي الكريم 
من الخطأ الذي يقع فيه الكثير هو وضع كود الباركود في حدث التكست تشينج
الحدث المفروض يتم وضعه في حدث Leave 
أي عند المغادرة 
لأن الباركود يقوم بالقراءة والإرسال يعني مرتين 
وهذا مثال بسيط للكود لتصلك فكرتي

كود :

Dim last As Integer

       If ItemBarCode.Text <> Nothing Then
           Dim dt As New DataTable
           Dim da As New SqlClient.SqlDataAdapter
           dt.Clear()
           da = New SqlClient.SqlDataAdapter("select * ,(SELECT Avg(UnitePrice) FROM ExpQtyUnite where DrugName = Items.Item_Name ) as t from Items where State='true' and Item_Bar Like '%" & ItemBarCode.Text & "%' ", SqlConn)

           '  da = New SqlClient.SqlDataAdapter("select *  FROM Items where ItemBarcode = '" & ItemBarCode.Text & "'", SqlConn)
           da.Fill(dt)
           If dt.Rows.Count > 0 Then
               Dim r As DataRow = dt.Rows(0)
               If DataGridView1.Rows(last).Cells(0).Value = dt.Rows(0).Item("Item_Code") Then
                   DataGridView1.Rows(last).Cells(7).Value = CDbl(DataGridView1.Rows(last).Cells(7).Value) + 1
               Else

                   DataGridView1.Rows.Add()

                   last = DataGridView1.Rows.Count - 1
                   DataGridView1(0, last).Value = dt.Rows(0).Item("Item_Code")
                   DataGridView1(1, last).Value = dt.Rows(0).Item("Item_Name")
                   DataGridView1(2, last).Value = dt.Rows(0).Item("Item_Bar")
                 
                                    DataGridView1(6, last).Value = dt.Rows(0).Item("Item_Price")
                   DataGridView1(7, last).Value = 1
                                     'Calc()
                   ' Calc()

               End If

           End If
           ItemBarCode.Clear()
       End If
       '