怪,不能关闭数据库连接

新人报到,问题来到...
问题:我创建了一个方法,此方法返回数据库连接对象,然后在测试方法中,我调用返回的对象来操作数据库,但是不知道为什么,不能够调用关闭数据库连接的Close方法,代码如下:
Private Function getConn()
  Dim conn
  set conn = Server.CreateObject("ADODB.Connection")
  conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("cinno.mdb")
  getConn = conn
End Function

Private Function checkNameCN(name)
  Dim conn,sql,rs,rsCount
  conn = getConn()

  sql = "SELECT * from organization where name='" & name &"'"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,1,1
  rsCount = rs.RecordCount
  rs.Close
  set rs=Nothing
  conn.Close
  checkNameCN = rsCount
End Function

conn.Close这一句加上就报错,去掉就可以正常运行,请问这是什么原因,急急急,谢谢大家,帮助一下...