请各位看一下如何解决这段代码出现的问题

Question

      Private Sub Command1_Click()
 If Trim(Form1.usertype.Text) = "学生" Then
       s999 = 0
    End If
    If Trim(Form1.usertype.Text) = "管理员" Then
       s999 = 1
    End If
    If username.Text = "" Then
        MsgBox "用户名不能为空！！"
        username.SetFocus
        Exit Sub
    End If
    If userpwd.Text = "" Then
     MsgBox "密码不能为空！！"
     userpwd.SetFocus
     Exit Sub
    End If
    Dim rs As New ADODB.Recordset
    Set rs = DataEnv.rsabc    //////  这里出错了
    Dim strsql As String
        strsql = "select * from users where yonghuming='" & username.Text & "'"
        rs.Open strsql
    If userpwd.Text = rs.Fields("mima") And usertype.Text = rs.Fields("quanxian") Then
        Form4.Show
        Unload Me
    Else
        MsgBox "用户名或密码错误，请重新登陆！！"
        username.Text = ""
        userpwd.Text = ""
    End If
    rs.CloseEnd Sub
这是一个系统登陆界面，Set rs = DataEnv.rsabc这行代码出现了问题，这是什么原因呀？

Answer 1

什么错误都不说！
猜：工程的 Data Enviroment 中没有设计 rsabc；或者数据库连接不对，rsabc 查询失败。

Answer 2

1 打开“工程”-“引用”，看看是否引用了 Microsoft DataEnvironment Instance 1.0 之类的库。2 检查代码，看是否已经将 DataEnv 实例化，并打开了 rsabc 这样的记录集。

Answer 3

Ctrl+R 打开 Project Explorer。
第3个按钮 Toggle Folders 要按下状态。
工程下面有没有一个 Designers 目录？
Designers 目录下有没有一个 DateEnvironment 对象（按照你的代码名称应该是 DataEnv）？
双击这个 DataEnv，打开设计画面，目录树第3层有没有 rsabc？如果没有，你取得的源代码不完整！

Answer 4

DateEnvironment 是固有功能，没有什么需要引用的。