设计表的CurrentChanged事件:
If Forms("窗口").Opened Then
Forms("窗口").Controls("控件1").Value = e.Table.Current("列1")
Forms("窗口").Controls("控件2").Value = e.Table.Current("列2")
End IF