主题：如何使窗口载入后窗口上的控件显示的是绑定表的最后一条记录？

With Tables("表A")
Dim r As Integer
r = .Find("A", .RowSel + 1, "A列", False, False, True)
If r > - 1 Then '如果找到符合条件的行
.Position = r '则选择该行
End If
End With