[VB.NET] ما هي المشكلة في هذا الكود

كود :

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

        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)

PHP كود :

("SELECT * FROM ITEMS WHERE ITEM_BAR ='" & TXT_BARCODE.Text & "'", Sqlconn)

كود :

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Try

            If SqlConn.State = ConnectionState.Open Then

                SqlConn.Close()

                MsgBox("الاتصال مغلق")

                SqlConn.Open()

                MsgBox("الاتصال مفتوح")

                SqlConn.Close()

            End If

            SqlConn.Close()

        Catch ex As Exception

        End Try

    End Sub

كود :

SQLstruse = "SELECT *  FROM use1 WHERE اسم_المستخدم = '" & t1.Text & "'"

        DataSetuse.Clear()

        Dim DataAdapterus As New OleDbDataAdapter(SQLstruse, conuse)

        DataAdapterus.Fill(DataSetuse, "use1")

        الموظف.DataBindings.Clear()

        الموظف.DataBindings.Add("Text", DataSetuse, "use1.اسم_الموظف")



        المستخدم.DataBindings.Add("Text", DataSetuse, "use1.اسم_المستخدم")

        المستخدم.DataBindings.Clear()

        المرور.DataBindings.Add("Text", DataSetuse, "use1.كلمة_المرور")

        المرور.DataBindings.Clear()



        a1.DataBindings.Add("Text", DataSetuse, "use1.إدارة_المخزن_والجرد")

        a1.DataBindings.Clear()

        a2.DataBindings.Add("Text", DataSetuse, "use1.إداة_الموظفين")

        a2.DataBindings.Clear()

        a3.DataBindings.Add("Text", DataSetuse, "use1.إجراء_عمليات_البيع")

        a3.DataBindings.Clear()