一段代码，不知错在哪里？

各位老师：

　　我作了一个简单的设计。创建一个简单的表（名：表1），只有2个字段，一个字段是 ID（自动计数），一个字段是 Q（长整数）。初始表1是一空表。

　　基于这个表创建了个窗体（名：窗体1），，窗体中也是只有ID和Q两个字段，外加一个按钮（名：按钮1）。

　　希望vba达到的效果是，打开窗体1后，然后点击按钮1，自动把 ID 的值填入 Q 字段中。共填20行。

　　我编的单击按钮1的事件代码为：

Private Sub Command1_Click()
  DoCmd.SelectObject A_FORM, "窗体1"
  DoCmd.GoToControl "表1"
  DoCmd.GoToRecord , , A_FIRST

  Do While Me![表1]![ID] < 20
    Me![表1]![T] = Me![表1]![ID]
    DoCmd.GoToRecord , , A_NEWREC
  Loop
End Sub

　　运行这个代码，没有反应，不知错在哪里？烦请高手指点一下。先谢谢了！！