有一个任务是从postgresql数据库中获取一些行，从VBA中。我用手发出请求，我确信表中有~ 200行。但如果我把它做成VBA脚本，那么UBound说我在记录中只有10行，并且试图访问第11行导致超出范围错误。我肯定有10多行，LIMIT也有10多行，但总有10行，是的，我可以用OFFSET来做，但我想减少查询的次数。

Sub main()

Dim query As String

'Create Connection
Set conn = CreateObject("ADODB.Connection")
strCnx = "Driver={PostgreSQL Unicode};Server=10.84._._;Port=5432;Database=_;UID=_;PWD=_;"
conn.Open strCnx

'Query the Database
Set rs = CreateObject("ADODB.recordset")
rs.Open "SELECT id, FROM dbo.orders ORDER BY tid DESC LIMIT 100", conn
Record = rs.GetRows()
Worksheets("index").Columns("A").ClearContents
Cells(1, 1) = Record(0, 10)
rs.Close