主题：找到最大行号

想找到编号列最大的行号并定位在这一行，请老师看看我的代码错在哪了？

With CurrentTable
    Dim r As String

    r = .FindRow("[编号] = 'max'") '从第一行开始查找
    If r >= 0 Then '如果找到的话
        .Position = r '定位到找到的行.
    End If
End With