1、你为什么要用代码,为什么不直接绑定表列?
2、如果要给表赋值,做一个按钮,写代码如
Dim nr = tables("表A").Addnew
nr("第一列") = Forms("窗口1").Controls("TextBox1").Text
nr("第二列") = Forms("窗口1").Controls("TextBox2").Text