tb1 = اسم الجدولid = اسم الحقل المراد معرفة اكبر رقم فيهIf rs.State = 1 Then rs.Closers = متغير المسئول عن فتح الجدولrs.Open "SELECT MAX(id) AS sss FROM tb1", cn, 1, 2cn = متغير الاتصال بقاعدة البياناتsss = متغير يحمل أكبر رقمMsgBox rs!sssIf rs.State = 1 Then rs.Close