急求高手!怎么连同一个数据库

'conn  已经在模块里定义了
Private Sub Command1_Click()
Dim sql As String
Dim rs_login As New ADODB.Recordset
    '判断用户名是否为空

If Trim(Text1.Text) = "" Then
    MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""
    Text1.SetFocus
Else
    sql = "select * from 理财系统管理 where 用户名='" & Text1.Text & "'"

    rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic
       '检验密码是否正确
    If rs_login.EOF = True Then
    MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""
    Text1.SetFocus
    Else
      '用户名和密码通过后要关闭本窗体，打开主窗体
If Trim(rs_login.Fields(1)) = Trim(Text2.Text) Then
    'userID = Text1.Text
    用户名 = Text1.Text
    'userpwd = rs_login.Fields(2)
    密码 = rs_login.Fields(2)
    rs_login.Clone
    Unload Me
    MDIForm.Show
Else
    MsgBox "密码不正确", vbOKOnly + vbExclamation, ""
    Text1.SetFocus
    End If
  End If
End If
End Sub

问题：连接无法用于执行此操作。在此上下文中它可能已被关闭或无效
      是这句的错误：rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic   而且是一步步执行的：

    上面的程序功能就是：用户登陆：
                            密码：
    如用户不存在：就进入下面窗口（也是另外的界面）


     如果没登陆就添加新用户：
                  用户名：
                  密码：
                  权限：
   显然，这是需要用同一个数据库；（因为要是名字存在肯定进不了，要是不存在肯定要加，也就是进入添加用户，所以我

认为只有用同一个数据库才行的）但为什么不能连上呢？
且第2个窗口功能我已经能够实现了，

--------------------编程问答-------------------- 楼主问题还没解决啊？首先：rs_login.Clone这个是什么？
还有你这两步实现了？
还出现那个问题吗？ --------------------编程问答-------------------- rs_login.Close;已经改了的哈
                             就是不知道为什么老出现这个问题?
--------------------编程问答-------------------- 不是上面的这个功能也出现吗？ --------------------编程问答-------------------- conn已经被你在其它模块中关了。

补充：VB ,  数据库(包含打印，安装，报表)