[محمد حدوقة]

السلام عليكم اخ محمد عبدالمنصف
Private Sub Code_Search_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Code_Search.ValueChanged

Dim Itm_Cod As DataTable
Itm_Cod = your Connection.get_datatable("select * from Itemes where Item_Code='" & Code_Search.Text & "'")
Item_Code.Text = Itm_Cod.Rows(0)("Item_Code")
Item_Des.Text = Itm_Cod.Rows(0)("Item_Des")
Sell_Price.Text = Itm_Cod.Rows(0)("Sell_Price")
End Sub