vb sql RS记录集查询使用问题

找了个通用声明：
Private Function Selectsql(SQL As String) As ADODB.Recordset '返回ADODB.Recordset对象
Dim ConnStr As String
Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Set Conn = New ADODB.Connection
'On Error GoTo MyErr:
ConnStr = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password=2012.; Data Source=192.168.1.6; Initial Catalog=UFS; '这是连接SQL数据库的语句"
Conn.Open ConnStr
rs.CursorLocation = adUseClient
rs.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic
Set Selectsql = rs
'Exit Function
'MyErr:
'Set rs = Nothing
'Set Conn = Nothing '释放相关的系统资源
'MsgBox Err.Description, vbInformation, "系统提示" '显示出错信息
End Function

在一个按钮事件中要查询不同的表；如何重复使用rs记录集
Private Sub command4_click()

Dim SQL As String
Dim rs As ADODB.Recordset
SQL = "SELECT * FROM TaskLog "
Set rs = Selectsql(SQL)
If Not rs.EOF Then
Bs = rs.Fields("Name").Value
Else
xz = userk
End If
我想接着在这个按钮事件中再查询另一个表
SQL = "SELECT * FROM DLog "

提示错误了，如何再使用那个 Function
end Sub

你要先将rs关闭，然后再打开才可以

rs.close
set rs = new adodb.recordset
sql = "select * from dlog"
set rs = selectsql(sql)

自己已经解决了么? 还有问题的话可以追问的.