[ملهمـ]

كود :

           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