[mrnooo2000]

الاستعلام يرجع قيمة  استخدم   ExecuteScalar

جرب الكود التالى ( بعد التأكد من اسم الحقل ) 

كود :

       Using command As New OleDb.OleDbCommand("SELECT Max(PIDTextbox)  FROM Lap", con)
           con.Open()
           max_id = command.ExecuteScalar().ToString
       End Using

تأكد من اسم الحقل بالجدول لديك