做个保存按钮新增行赋值保存
Dim nr As Row = Tables("表A").AddNew
nr("第一列") = e.form.controls("textbox1").Text
nr("第二列") = e.form.controls("textbox2").Text
nr.Save