如何将多个文本框内的内容作为一个新记录追加到数据库

思路:在一个窗体上我建了一些文本框，我通过record.fields(i)=text1(i).text将文本框的内容赋值给数据库内指定的字段．
具体代码如下：
rspth.AddNew
For I = 0 To rspth.Fields.Count
rspth.Fields(I) = PTHTxt(I).text
Next I
rspth.Update
其中rspth.Fields(11)这个字段为数字型(access数据库)
数据库的联接我是在form_load这个事件中完成的．
追加数据始终不成功．
请各位帮忙．