从数据库中读取数据给变量，为什么没有结果啊？

introc

我的代码如下，但是为什么没有任何结果呢？zzReduce表中，是有数据的啊。

    Dim rs As New ADODB.Recordset
   

    Dim S() As Integer
    Set rs = CurrentProject.Connection.Execute("Select reduceCellName From zzReduce")
    For i = 0 To rs.RecordCount
    S(i) = rs(i)
    MsgBox S(i)
    Next i

introc

刚才测试了一下，rs.RecordCount 的值为 -1

怪不得，没有结果呢。

问题是，结果集为什么是-1啊？为什么没有结果啊？