添加记录问题

总算搞定了，源代码如下：

思路：

1、有一个空表，在窗体上放一个添加按钮，点击进入事件过程，把相应的数字加入数据表中。

2、使用access2010

3、只是实现功能，添加新记录在表中这个功能，要优化，请大家指正

代码如下：

Private Sub Command1_Click()
DoCmd.SetWarnings False
Dim a1 As Integer
Dim a2 As Integer

Dim Condbs As Database
Dim rst As Recordset
Set Condbs = CurrentDb
Set rst = Condbs.OpenRecordset("sample")     '打开sample表
For a1 = 1 To 10
    For a2 = (a1 + 1) To 20
                        rst.AddNew        ‘添加一个新记录
                        rst!R1 = a1
                        rst!R2 = a2
                        rst.Update

     Next a2
Next a1
MsgBox ("添加操作完毕")            ’这是怕程序飞了，做的一个提示信息
rst.Close                                    ‘关闭表
End Sub