String MS Access vba逗号分隔字符串来自字段

我需要简短的vba代码将ms access表字段转换为逗号分隔的字符串变量

T1.F     to    'A','123','008','A'
A
123
008
A

---

以下内容将在s中获得所需的字符串：

Dim s as String, rs as Recordset

s = " Select [F] from [T1] "
Set rs = CurrentDb.OpenRecordset(s)
s = ""
While Not rs.EOF
    s = s & "'" & rs(0) & "',"
    rs.moveNext
Wend
s = Left(s,Len(s) - 1)
rs.close

---

谢谢它是有效的，但它能像拆分（rs，“，”）或拆分（[T1].[F1].“，”，“，”）那样短吗？据我所知，您不能对记录集执行类似的操作。我很确定你必须迭代才能得到结果。