选择表数据到数组 - 仅获取一行

我正在尝试从表中获取数据EmailList并将其放入一个数组中，该数组将被传递到 Outlook 电子邮件的“收件人：”字段（电子邮件的脚本已创建）。我计划使用Join()函数将数组组合成字符串，如下所示：Join(varEmailList, "; ").

My Code:

Private Sub Propose_Click()

Dim MyDB As DAO.Database
 Dim rstEmails As DAO.Recordset
 Dim varEmails() As Variant
 Dim intRowNum As Integer
 Dim intColNum As Integer

 Set MyDB = CurrentDb
 Set rstEmails = MyDB.OpenRecordset("select email from EmailList", dbOpenSnapshot)

 'Let's retrieve ALL Rows in the rstEmails Recordset
 varEmails = rstEmails.GetRows()

 MsgBox ("Number of Fields Retrieved: " & UBound(varEmails, 1) + 1)

 rstEmails.Close
 Set rstEmails = Nothing

End Sub

我遇到的问题是代码只找到一条记录，而一次应该至少有 10 条记录。

The DAO.Recordset.GetRows方法返回不超过一行，除非您明确告诉它返回更多行。

Ask GetRows检索所有行：

'Let's retrieve ALL Rows in the rstEmails Recordset
'varEmails = rstEmails.GetRows()
With rstEmails
    .MoveLast
    .MoveFirst
    varEmails = .GetRows(.RecordCount)
    .Close
End With

这是另一个问题...

MsgBox ("Number of Fields Retrieved: " & UBound(varEmails, 1) + 1)

该数组的第一个维度是字段——在本例中只有一个。第二个维度具有这些字段的值：

MsgBox ("Number of Fields Retrieved: " & UBound(varEmails, 2) + 1)