窗口的AfterLoad事件:
e.form.Controls("Label1").Text = "总共" & Tables("表名").rows.Count & "行,当前为" & (Tables("表名").Position + 1) & "行"