[VB6 ] 關於Data物件之.Recordset的問題

[qqdream (QQdream)]

這一段程式是做"下一筆"button物件瀏覽的動作，
當瀏覽至最後一筆時，
"下一筆"button物件就失效。其程式為：

Private Sub cmdNext_Click()
With datID.Recordset
   .MoveNext

   If (.RecordCount=.AbsolutePosition+1) Then
   cmdNext.Enabled=False
   End If

   cmdPrev.Enabled=True
End With
End sub

但系統出現如下的錯誤：
Run-time error '3251'
Operaton is not supported for this type of object.

是否在.AbsolutePosition發生錯誤？
又該段程式應如何處理？
謝謝。

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.112.20.198
推 fumizuki:同3545篇