方式一,使用数据绑定http://www.foxtable.com/help/topics/0704.htm
方式二,赋值
If Tables("表名").Current IsNot Nothing Then
e.Form.Controls("TextBox1").Text = Tables("表名").Current(""资产名称) '其它控件类推
End If