access两表查询问题，这样的结果如何得到？

[lhb2000]

a表
id tm
1 2008-7-1
2 2008-7-2
3 2008-7-5
....
b表
id data
1 aa
1 bb
1 cc
2 aab
2 abb
3 aaaa
3 bbba
.....
如何得到如下结果 查询怎么写 超过长度截取部分
id tm data
1 2008-7-1 aa,bb,..
2 2008-7-2 aab,ab..
3 2008-7-5 aaaa,b..
....

[WWWWA]

SQL+VBA:
SELECT *,DD1(ID) FROM A

模块：
FUNCTION DD1(BYVAL DD2 INTEGER) AS STRING
ff = ""
Set rr = CurrentDb.OpenRecordset("select * from B where ID=" & id2)
Do While Not rr.EOF
ff = ff & rr("data") & ","
rr.MoveNext
Loop
dd1 = Left(ff, Len(ff) - 1)
End Function

[lhb2000]

上面的我试过，但在WEB方式 用asp 执行说找不到dd1函数

[WWWWA]

SQL+VBA这种方式只能在ACCESS中使用，其它语言中取得记录集，累加字符串，思路是一致的。