如发布实例做却报表却连不上数据，

Set oRs = oCom.Execute

    If (oRs.EOF) Then   ----------（1）

       oRs.Close        ----------（2）

    Else

        oRs.MoveFirst

        i = 0

        Do While Not oRs.EOF

        Sheet1.Cells(i + 4, 2) = oRs.Fields("RealValue").Value

        oRs.MoveNext

        i = i + 1

        Loop

        oRs.Close

    End If            ----------（3）

调试过程直接从（2）跳到（3），中间部分没有执行。请问大神是什么问题。感谢！