我的程序错在哪里?总是提示"未找到方法或数据成员"
Private Sub Form_Load()    '窗体事件
  Left = 0
  Top = 0
  Me.Height = main.SceleHeight
  Me.Width = main.SceleWidth
  Set rec = DataEnvironment1.Recordsets(1)
  rec.AddNew
End Sub
Private Sub Form_Unload(cancel As Integer) '使之退出窗体时取消那些没有经过确定的人员添加
  rec.CancelUpdate '
End Sub
Private Sub Command1_Click(index As Integer)
  Select Case index
  Case 0
    rec.AddNew
    Command1(1).Enabled = True
  Case 1
    On Error GoTo err1
    rec.UpdateBatch adAffectAllChapters
    Command1(1).Enabled = False
  Case 2
    On Error GoTo err1
    rec.CancelUpdate
  End Select
  Exit Sub
err1:
  MsgBox Err.Description
End Sub

main
DataEnvironment
都有吗？