[فراس الغزي]

السلام  عليكم  

  اخوتي  الاعزاء  

  انا قمت بكتابة  هذا الكود  وهو  للادخال  المنتجات  عن  طريق الباركود لكن  عند  الضغط  على انتر  يظهر  عندي  هذا الطا  اليكم  الكود  وكود الخطا  اتمنى  منكم المساعدة  اخوتي  

الكود  

كود :

 '=========== طريقة الادخال عن طريق الباركود ===========
        Dim BAR_ As Integer

        If TXT_BARCODE.Text <> Nothing Then
            Dim DT As New DataTable
            Dim DA As New SqlClient.SqlDataAdapter("SELECT * FROM ITEMS WHERE ITEM_BAR LIKE '" & TXT_BARCODE.Text & "'", SqlConn)
            DA.Fill(DT)
            If DT.Rows.Count > 0 Then
                '======= التحقق من رقم كود الصنف =========
                For I = 0 To DataGridView1.Rows.Count - 1
                    If DataGridView1.Rows(I).Cells(0).Value = DT.Rows(0).Item("ITEM_CODE") Then
                        DataGridView1.Rows(I).Cells(4).Value = DataGridView1.Rows(I).Cells(4).Value + 1
                        CALC()
                        TXT_BARCODE.Clear()
                        Exit Sub
                    End If

                Next
                '======= اضافة سجل للداتا جريد ===========
                DataGridView1.Rows.Add()
                BAR_ = DataGridView1.Rows.Count - 1
                DataGridView1(0, BAR_).Value = DT.Rows(0).Item("ITEM_CODE")
                DataGridView1(1, BAR_).Value = DT.Rows(0).Item("ITEM_NAME")
                DataGridView1(2, BAR_).Value = DT.Rows(0).Item("ITEM_UNIT")
                DataGridView1(3, BAR_).Value = DT.Rows(0).Item("ITEM_PRICE")
                DataGridView1(7, BAR_).Value = DT.Rows(0).Item("QTY")
                DataGridView1(8, BAR_).Value = DT.Rows(0).Item("ITEM_EXPIRE")

                DataGridView1(4, BAR_).Value = 1

                CALC()


            End If



        End If
        TXT_BARCODE.Clear()
        CALC()

ورسالة الخطا التي  تظهر  هذه  

كود :

additional information the connectionstring property has not been initialized. (system.data)

 انتظر  ارائكم  خول  المشكلة  وشكرا لكم  وفقكم الله