[asemshahen5]

جرب هذا الكود إذا لم ينجح ضع مثالا مصغرا عن البرنامج أي فورم مختصر مع قاعدة البيانات .

PHP كود :

Dim StrSQL as string = "select Pro_Name from TBL_Products where Pro_Code = " & CInt(txtprocode.Text) 
 If Con.State = ConnectionState.Closed Then Con.Open()
 Dim da As New OleDbDataAdapter(StrSQL, con)
 Dim dt As New DataTable
 da.Fill(dt)
 If Con.State = ConnectionState.Open Then Con.Close()
 txtdes.Text = dt.rows(0)("Pro_Name").ToString