为什么我不能将信息写近数据表中？？？

Question

在VB中
  我想将表1中的一字段的记录全部写到另一表中。
  我这样编：
   Do While Data1.Recordset.EOF = False
   Num = Num + 1
   B(Num) = Text1
   Data1.Recordset.MoveNext '指向下一条记录'
   Loop
   Data1.Recordset.Close
    For I = 1 To Num
    Data2.Recordset.AddNew
    Text2 = B(Num)
    Text3 = Format(Date, "yyyy")
    Text4 = Format(Date, "m")
 Next I
其中两个DATA控件分别和两个表绑定，TEXT1和表一中的相应的字段绑定，TEXT2和表二中的相应字段绑定了，可是在我运行的过程中，并不能将表一中的记录写进表二中，请问是怎么回事？？？

Answer 1

dim num As Integer
Do While Data1.Recordset.EOF = False
   Data1.Recordset.MoveFirst 
   Num = Num + 1
   B(Num) = Text1
   Data1.Recordset.MoveNext 
   Loop
这样你试试!

Answer 2

Data1.Recordset.MoveFirst 
上面说的这条语句是多余的，没有必要撒。

Answer 3

Do While Data1.Recordset.EOF = False
   Data1.Recordset.MoveFirst 
   Num = Num + 1
   B(Num) = Data1.Recordset.Fields ("子段")
   Data1.Recordset.MoveNext 
Loop

Answer 4

你们给我修改的程序的添加的语句是多余的，这并不能解决我的程序中的错误。我的程序错在不是Text2 = B(Num)应是
Text2 = B(I)