[] 应用程序或对象定义异常，如何错了阿？

Private Sub データ取得_Click()    Dim OraSession As Object            Dim OraDatabase As Object          Dim rs As Object                   Dim rownu As Long    Dim colnum As Integer    Dim tig As String    Dim tigtemp As String    Dim haveflag As Integer      Dim rcd As Integer      On Error GoTo ErrorTrap       Set OraSession = CreateObject("OracleInProcServer.XOraSession")    Set OraDatabase = OraSession.OpenDatabase("dir", "dir/dir", 0&)        tigtemp = ActiveSheet.Cells(3, 7).Text    haveflag = InStr(1, tigtemp, "where", 1)         tig = Left(tigtemp, haveflag + 5) & " rownum < 100 and " & Right(tigtemp, Len(tigtemp) - haveflag - 4)    Set rs = OraDatabase.CreateDynaset(tig, 0&)        For colnum = 0 To rs.Fields.Count - 1        ActiveSheet.Cells(6, colnum + 5) = rs(colnum).Name    Next        rownu = 0    Do Until rs.EOF        For colnum = 0 To rs.Fields.Count - 1                                'rs.Fields.Count = 32的时候，出错了，不知道为什么`            ActiveSheet.Cells(rownu + 7, colnum + 5) = rs(colnum).Value            '出错的时候rownu =0 colnum =15        Next        rs.MoveNext        rownu = rownu + 1    Loop        rs.Close        Set rs = Nothing    Set OraDatabase = Nothing    Set OraSession = Nothing    Exit SubErrorTrap:    rcd = MsgBox("内容：" & Err.Description & Chr(10) & Chr(10) & " GO ON  OR NOT?", 4, "ERR")    If rcd = 6 Then        Exit Sub    Else        Resume Next    End If        End Sub