怎么用函数来实现数据库查询结果的返回，及其调用，请高人指点

如何用函数来实现数据库查询结果的返回，及其调用，请高人指点
function data()
rs.open "select id,name sex from mytable",conn
data=?
end function


把查询结果通过函数返回，以及如何调用它
------解决方案--------------------
----------------------------------------
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset

Private Function data() As String
rs.Open "select id,[name],sex from mytable", conn
data = rs!id & "-" & rs!name & "-" & rs.sex
rs.Close
End Function

Private Command1_Click()
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;"
MsgBox data
Set rs = Nothing
conn.Close
Set conn = Noting
End Sub
------解决方案--------------------
function data()as adodb.recordset
dim rs as new adodb.recordset
rs.cursorlocation=aduseclient
rs.open "select id,name sex from mytable",conn
set data=rs
end function


调用
command1_clock
dim rs as adodb,recordset
set rs=data
end sub




------解决方案--------------------
两楼的RS怎么现实出来，用文本框报数据类型不对