Dim conn As New ADODB.Connection
conn.close

Dim conn As New ADODB.Connection
conn.close
set conn = Nothing

我把数据库连接是用类调用的！

Public Cnn As New ADODB.Connection  '
Public Rst As New ADODB.Recordset
rst.close      '先关闭集合
set rst=Nothing  
cnn.close      '再关闭连接 
set conn = Nothing

if rs.state<>adstateclose then rs.close
set rs=nothing

if conn.state<>adstateclose then conn.close
set conn=nothing

Dim CN As New ADODB.Connection
CN.close
set CN = Nothing

呵呵，来晚了

可以在类里写一个CloseDatabase的方法来关闭

conn.close

我是在登陆后就把数据库打开了！进入mdi窗口后，我做了个数据备份（access）是通过拷贝来完成的，我用conn.close关闭不了的，有什么好的办法可以解决这个问题！谢谢！

if conn.State =1 then '判断是否打开状态
    conn.close                
    set conn=nothing    '释放内存
  end if

通过拷贝来完成的：
拷贝完以后要释放句柄，否则被锁定是无法关闭的。修改一下拷贝的代码。