为什么程序中连接了数据库后占有的内存就增加了3000K啊！

我写了个身份验证窗体，主要代码如下 Dim mrc As ADODB.Recordset
Private Sub CmdOK_Click()
   If txtUserName.Text = "" Then
...........................................
   ElseIf txtPassword.Text = "" Then
...........................................    
  Else
    txtsql = "select * from login where username='" & Trim(txtUserName.Text) & "'"
    Set mrc = ExecuteSql(txtsql, msgtext)
    If txtPassword.Text <> mrc!PassWord Then
                  LogCount = LogCount + 1
          If LogCount = 5 Then End  '设置登陆次数不超过LogCount次
    Else
          OK = True
          Unload FrmLogin
    End If
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
  mrc.Close
  Set mrc = Nothing
  Unload FrmLogin
  set FrmLogin= Nothing
End Sub   其中ExecuteSql是一段执行连接数据库的代码，相信大家很多人都在书上看到过，应该没有问题的
但是点击CmdOK后，程序占有的内存一下子就增加了近3000k ,卸栽该登陆窗体后，程序所占有的内存几乎就没有减小。我试着把CmdOK中的内容都去掉，只留下Unload FrmLogin，则内存没有增加，那肯定是数据库连接方面的问题了。
   请问各位高手，这是怎么回事，我在Unload中已经关闭了数据库的连接了啊。