两表间数据的写入！

Question

我要将表一中的一字段的内容全部写进表二的某一字段中
  我的思路是：先将表一进行循环，记录指针每移动一下，就将该字段的内容写进数组中。最后将数组中的值依次写进表二中。
  我将表一中的这个字段与text控件绑定。我想每循环一下，其text中的内容就会改变，于是就将它赋给数组。
   表二中的这个字段也与另一text控件绑定，于是我将数组中的值依次赋给text。
   我写的程序是：
  k = 0
  Do While Data1.Recordset.EOF = False
  k = k + 1
  B(k) = Text1
  Data1.Recordset.MoveNext '指向下一条记录'
  Loop
  Data1.Recordset.Close
  For I = 1 To k
   Data2.Recordset.AddNew
   Text2 = B(k)
     Next I
   我以为这样就能很顺利的将表一中的字段内容写进表二中，可是在实际的运行过程中，其表二中的该字段的内容全部是表一中本字段的最后的一个记录的内容，但是记录总数还是正确的，请问是怎么回事？我将怎么做？

Answer 1

For I = 1 To k
   Data2.Recordset.AddNew
   Text2 = B(k)
   Data2.Recordset.update
Next I

Answer 2

insert into 表2(字段) select 字段 from 表1

Answer 3

插入它Data2.Recordset.update
运行结果一样！

Answer 4

你插入表2的Text2 怎么会是= B(k),应该是B(i),K一直都没变!
k = 0
  Do While Data1.Recordset.EOF = False
  k = k + 1
  B(k) = Text1
  Data1.Recordset.MoveNext '指向下一条记录'
  Loop
  Data1.Recordset.Close
  For I = 1 To k
   Data2.Recordset.AddNew
   Text2 = B(i)
   Data2.Recordset.update
   Next I