function strList(pname as string) as string
Dim rs As New ADODB.Recordset
Dim ssql As String
Dim i As Long
Dim str as string
ssql="select * from tbname where 姓名='" & pname & "'"
rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
str=""
for i=1 to rs.RecordCount
str=str & rs!喝水.value & "/"
rs.movenext
next
strList=left(str,len(str)-1)
end function