创建一个模块函数,实现对数据库中学生-课程表中的数据进行查询设计

1、在标准模块中写一个自定义函数
function strlist(byval ID as integer) as string
    Dim rs As New ADODB.Recordset
    Dim ssql As String
    Dim i as long
    ssql="select * from 阁下的数据表名称 where 编号=" & ID
    rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    For i=1 To rs.RecordCount
        strlist=strlist & rs!课程.value & ","
        rs.movenext
    Next
    strlist=left(strlist,len(strlist)-1)
    set rs=nothing
End function

2、在查询中引用这个函数
select DISTINCT 编号,姓名,strlist(编号) as 选修课程 from 阁下的数据表名称