关于两个窗体的增加内容,解决问题送高分!!

初学者参考书本学习VB，做了一个简单的"工资管理系统",在数据库db1.mdb中做了两个表：GZB（工资表）和YGB（员工表），关键字均为编号。用了两个MDI子窗体：frmADD（工资信息增加窗体）和frmEadd（员工信息增加窗体）。在两个窗体中均有按钮控件组（增加，确定，取消），均用文本框控件数组（text1）显示数据库中的信息，为此添加了一个环境设计器DataEnvironment1,其connection1中有三个命令：command1用于绑定工资信息（在frmADD窗体中），command2分组用于报表打印，command3用于绑定员工信息（在frmEadd窗体中）。但是运行时只有frmADD窗体可以增加工资信息，frmEadd窗体不能进行增加。请高手指点！！！
frmADD窗体代码如下：
Dim rec As ADODB.RecordsetPrivate Sub Command1_Click(Index As Integer)
    Select Case Index
        Case 0 '选择增加按钮
            rec.AddNew
            Command1(1).Enabled = True
        Case 1 '选择确定按钮
            If txt编号.Text = "" Or txt姓名.Text = "" Or txt部门.Text = "" Or _
            txt基本工资.Text = "" Then
            MsgBox "请输入必要的信息！"
            Else
            On Error GoTo err1
            rec.UpdateBatch adAffectAllChapters
            Command1(1).Enabled = False
            End If
        Case 2 '选择取消按钮
            On Error GoTo err1
            rec.CancelUpdate
    End Select
    Exit Sub
err1:
    MsgBox Err.Description
End SubPrivate Sub Form_Load()
    Left = 0
    Top = 0
    Me.Height = main.ScaleHeight
    Me.Width = main.ScaleWidth
    Set rec = DataEnvironment1.Recordsets(1)
    rec.AddNew
End SubPrivate Sub Form_Unload(Cancel As Integer)
    rec.CancelUpdate
End Sub
--------------------------------------
frmEadd窗体代码如下：
Dim rec As ADODB.Recordset
Private Sub Command1_Click(Index As Integer)
  Select Case Index
    Case 0 '选择增加按钮
        rec.AddNew
        Command1(1).Enabled = True
    Case 1 '选择确定按钮
        If txt编号.Text = "" Or txt姓名.Text = "" Or txt部门.Text = "" Or _
        txt性别.Text = "" Then
        MsgBox "请输入必要的信息！"
        Else
        On Error GoTo err1
        rec.UpdateBatch adAffectAllChapters
        Command1(1).Enabled = False
        End If
    Case 2 '选择取消按钮
        On Error GoTo err1
        rec.CancelUpdate
  End Select
  Exit Sub
err1:
    MsgBox Err.Description
End Sub
Private Sub Form_Load()
    Left = 0
    Top = 0
    Me.Height = main.ScaleHeight
    Me.Width = main.ScaleWidth
    Set rec = DataEnvironment1.Recordsets(1)
    rec.AddNew
End Sub
Private Sub Form_Unload(Cancel As Integer)
    rec.CancelUpdate
End Sub
另有:DataEnvironment1.Recordsets(1)如何正确理解含义?Recordsets(1)又如何解释?
请高手指点一二,多谢!!!!