كود استدعاء الصنف بمجرد كتابة كود الصنف

كود :

If e.KeyCode = Keys.Enter Then

        End If

        '  انشاء امر يحمل جملة اس كيو ال مع الاتصال  

        Dim cmd As New OleDbCommand(sqlstr, con)

        'استدعاء البيانات من خلال الكوماند الى صنف محدد الى فاتورة المبيعات بناء على شرط 

        cmd.Parameters.AddWithValue("@Code", TextBox1.Text)

        'اضافة صف جديد الى دات قريد

        'اعلان عن متغير

        Dim newrow As h1DataSet.sellRow

        'اعطاء قيمة للصف الجديد

        newrow = H1DataSet.sell.NewRow

        H1DataSet.sell.Rows.Add(newrow)

        'فتح الاتصال

        con.Open()

        'الاعلان عن متغير لقراءة البيانات من قاعدة البيانات بناء على شرط

        Dim dr As OleDbDataReader

        'تنفيذ الاستعلام

        Dim cmd1 As New OleDbCommand(sqlstr, con)

        cmd = New OleDbCommand(sqlstr, con)



        dr = cmd.ExecuteReader

        'اظهار رسالة تفيذ عدم وجود الصنف في بطاقة الصنف

        If Not (dr.HasRows) Then

            MsgBox("هذا الصنف غير معرف في بطاقة الصنف", MsgBoxStyle.MsgBoxRight + MsgBoxStyle.Critical, "خطأ ")

            Return

        End If

        'قراءة الاصناف

        While dr.Read

            newrow.ID = Me.SelMIDTextBox.Text

            newrow.code = dr.Item("Code")

            newrow.Name = dr.Item("NAME")

            newrow.price = dr.Item("Price")

            newrow.quant = Me.TextBox2.Text

            newrow.price = dr.Item("Price")

            'نعمل تحديث لقاعدة البيانات

            Me.Validate()

            Me.SellBindingSource.EndEdit()

            Me.TableAdapterManager.UpdateAll(Me.H1DataSet)

            Me.SellBindingSource.EndEdit()

            Me.SellTableAdapter.Update(Me.H1DataSet.sell)

            Me.SellTableAdapter.Fill(Me.H1DataSet.sell)

            Me.SellBindingSource.MoveLast()

            'اجراء عملية حسابية بين الكمية والسعر

            If Not IsDBNull(Me.SellDataGridView.CurrentRow.Cells(2).Value) And Not IsDBNull(Me.SellDataGridView.CurrentRow.Cells(4).Value) Then

                Me.SellDataGridView.CurrentRow.Cells(5).Value = CDec(Me.SellDataGridView.CurrentRow.Cells(2).Value * Me.SellDataGridView.CurrentRow.Cells(4).Value)

            End If

        End While

        'اغلاق الاتصال

        dr.Close()

        con.Close()

        'استدعاء دالة المجموع

        CalNet()

        TextBox1.Clear()

كود :

           Dim dt As New DataTable

            Dim da As New SqlClient.SqlDataAdapter

            dt.Clear()

            da = New SqlClient.SqlDataAdapter("select * from Items where State='true' and Item_Bar = '" & Txt_Bar1.Text & "'", SqlConn)

            da.Fill(dt)

            If dt.Rows.Count > 0 Then

                Txt_Name1.Text = dt.Rows(0).Item("Item_Name")

                Txt_Qty1.Text = dt.Rows(0).Item("Qty")

                Txt_Tklfa1.Text = dt.Rows(0).Item("Item_Tklfa")

                Txt_Price1.Text = dt.Rows(0).Item("Item_Price")

                Txt_Bar1.Text = dt.Rows(0).Item("Item_Bar")

                Item_Code1.Text = dt.Rows(0).Item("Item_Code")

                Txt_Bar2.Select()

            End If