مشكلة عويصة في ال ADO

السلام عليكم

انا لا اعرف على الفيجول بيسك، لكن انا استخدم لغة ال asp، فسوف أحاول بالمساعدة

قم بعمل الكود التالي:

Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & path & ";"
Set adoprimaryrs = New Recordset
   sql = "select max(call_num) from basic"
   
   adoprimaryrs.Open sql, db, adOpenStatic, adLockOptimistic
for each x in adoprimaryrs.fields
response.write(x.value)
next

أرجوا أن يفيدك

الأمر response.write هو عملية عرض البيانات على الشاشة، لا اعرف على الفيجول، إنما اعتقد هي print، أو ما شابه ذلك، أرجوا أن يفيدك.

مع تحياتي

On Error Resume Next
    adoprimaryrs.MoveNext
    If adoprimaryrs.EOF Then
       adoprimaryrs.MoveLast
       MsgBox "Last Record", vbInformation, "Last Record"
    End If