将ADO excute对象封装

自己做了，还有看了CSDN的例子，都发现个问题..
请大家参考这个例子。。
http://topic.csdn.net/u/20091112/10/bcce5764-1b76-4e81-9a99-70c6ce8ea318.html
里面提供的N种办法，都会出现在执行完毕函数后，数据库连接不能关闭现象。。就像这个帖子的楼主在最后回复的那样。
我用的是ACCESS,执行完毕后，都会有。LDB的连接文件存在。。
请教各位大侠，改怎么解决这个问题呢。。。
可以在类里面定义公共的连接，然后执行完后，数据连接很容易关闭。 Public Function ExecuteSQL(ByVal sql As String) As ADODB.Recordset
  Dim cn As ADODB.Connection, connstring As String
  Dim rs As ADODB.Recordset
  Set cn = New ADODB.Connection
  connstring = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "/xs.mdb"
  cn.ConnectionString = connstring
  cn.Open
  Set rs = New ADODB.Recordset
  rs.Open sql, cn, adOpenKeyset, adLockOptimistic
  Set ExecuteSQL = rs
End Function
这段代码完全可用，可是，就是关闭不了，请问大侠，怎么定义？

补充：VB ,  多媒体