[alfaiz678]

حاولت حتى عمل معي هذا الكود
وان شاء الله ينفع
للفائدة

كود :

Dim rbhsnf As New OleDbCommand ' rbhsnf
           rbhsnf.CommandType = CommandType.Text
           rbhsnf.Connection = conne
           rbhsnf.CommandText = "select last(JBeaMndoobN) from [JBea] where  JBeaMndoobName like '" & CMndoobName.Text & "'"
           conne.Open()
           If rbhsnf.ExecuteScalar.ToString <> "" Then
               TMndoobN.Text = rbhsnf.ExecuteScalar
           Else
               TMndoobN.Text = 0
           End If

           conne.Close()