Sub test1()
Dim rs As ADODB.Recordset, sAry As Variant, r As Integer, c As Integer
Set rs = New ADODB.Recordset
rs.Open "SELECT Rate FROM Rates", CurrentProject.Connection, adOpenDynamic, adLockPessimistic
sAry = rs.GetRows
Debug.Print UBound(sAry, 1)
Debug.Print UBound(sAry, 2)
For r = 0 To UBound(sAry, 1)
For c = 0 To UBound(sAry, 2)
Debug.Print sAry(r, c)
Next
Next
End Sub
Sub test2()
Dim rs As DAO.Recordset, sAry As Variant, r As Integer, c As Integer
Set rs = CurrentDb.OpenRecordset("SELECT Rate FROM Rates")
rs.MoveLast
rs.MoveFirst
sAry = rs.GetRows(rs.RecordCount)
Debug.Print UBound(sAry, 1)
Debug.Print UBound(sAry, 2)
For r = 0 To UBound(sAry, 1)
For c = 0 To UBound(sAry, 2)
Debug.Print sAry(r, c)
Next
Next
End Sub