dim l_arr() as string
dim l_strValue as string
dim rs as recordset
for i=1 to rs.recordcount
if l_strvalue="" then
l_strvalue=rs.files.value("")
else
l_strvalue=l_strvalue & ";" & rs.files.value("")
endif
next i
l_arr=split(l_strvalue,";",,0)
for i=lbound(l_arr) to ubound(l_arr)
'這裡可以取出想要的記錄
next i