请高手帮忙看看，MoveLast后再运行到MyString=Data1.Recordset.Fields("Title").Value就会出现错误3021无当前记录。
Private Sub Command2_Click()
    Dim MyString As String      '定义一个自己用的字符串变量

    '如果没指到了最后一个记录就向后移，避免出现指到了EOF（最后一个记录后）没有当前记录的情况。
    If Data1.Recordset.EOF = False Then
        Data1.Recordset.MoveNext
    End If
    MyString = Data1.Recordset.Fields("Title").Value
    Option1.Caption = MyString
End Sub
网上说如果最后一行是当前行，再使用 MoveNext 时，EOF 属性被设为 True，并且没有当前行。如果再次使用 MoveNext，产生一个错误；EOF 仍为 True。如何避免这个错误。

[ 本帖最后由 dingyx 于 2010-4-3 15:53 编辑 ]

可以使用count得到记录总数，然后获取最后那个记录

谢谢。去试试……