code ต่อไปนี้ ผม ดาวโหลดมาจากตัวอย่างครับ ตั้งใจจะทำ linenumber ให้ subform

'============================================================
' The following function is used by the subfrmLineNumber form
'============================================================

Function GetLineNumber(F As Form, KeyName As String, KeyValue)
Dim RS As Recordset
Dim CountLines

On Error GoTo Err_GetLineNumber

Set RS = F.RecordsetClone

' Find the current record.
Select Case RS.Fields(KeyName).Type
' Find using numeric data type key value?
Case DB_INTEGER, DB_LONG, DB_CURRENCY, DB_SINGLE, _
DB_DOUBLE, DB_BYTE
RS.FindFirst "[" & KeyName & "] = " & KeyValue <=====*******
' Find using date data type key value?
Case DB_DATE
RS.FindFirst "[" & KeyName & "] = #" & KeyValue & "#"
' Find using text data type key value?
Case DB_TEXT
RS.FindFirst "[" & KeyName & "] = '" & KeyValue & "'"
Case Else
MsgBox "ERROR: Invalid key field data type!"
Exit Function
End Select

' Loop backward, counting the lines.
Do Until RS.BOF
CountLines = CountLines + 1
RS.MovePrevious
Loop

Bye_GetLineNumber:
' Return the result.
GetLineNumber = CountLines

Exit Function

Err_GetLineNumber:
CountLines = 0
Resume Bye_GetLineNumber

End Function

ผมมี field ชื่อ id type เป็น autonumber เมื่อสั่ง run โปรแกรม จะขึ้น ERROR "Method or data member not found" ตรงบรรทัด
RS.FindFirst "[" & KeyName & "] = " & KeyValue <=====*******
ไม่ทราบว่าเป็นไร ผมเรียกใช้ function นี้ด้วยคำสั่งนี้ครับ
=GetLineNumber([Form],"id",[id])
ใช้ กับ AccessXp แต่ในตัวอย่างใช้งานได้ครับ ผมเองคิดว่าเป็นตรง argument "id" หรือ [id]
หรือไม่ก็ [Form] ไม่รู้จะส่งค่าให้ function อย่างไร เพื่อนๆช่วยด้วยครับ ขอบคุณล่วงหน้าครับ