Visual Basic - Error 1004 En Tiempo De Ejecución VB6

Set oExcel = New Excel.Application

Set oWBook = oExcel.Workbooks.Add

Set oSheet = oWBook.Worksheets(1)

oExcel.DefaultSaveFormat = xlWorkbookNormal

''oSheet.Unprotect 'Desprodejo la hoja

''oExcel.ScreenUpdating = False ' para no ver el funcionamiento de la macro

oExcel.Visible = False

rs.MoveFirst

iFila = 2

oSheet.Cells(iFila, 3) = "LISTADO DE AFILIADOS"

iFila = 4

oSheet.Cells(iFila, 1) = "Nit: " & LVFacturas.ListItems.Item(J).SubItems(13)

oSheet.Cells(iFila, 3) = LVFacturas.ListItems.Item(J).Text

oSheet.Cells(iFila, 5) = LVFacturas.ListItems.Item(J).SubItems(14)

iFila = 6

For I = 0 To (rs.Fields.Count) - 1

    oSheet.Cells(iFila, I + 1) = rs.Fields(I).Name

Next I

iFila = 6

Do Until rs.EOF

    iFila = iFila + 1

    For I = 0 To rs.Fields.Count - 1

        oSheet.Cells(iFila, I + 1) = rs.Fields(I).Value

    Next I

    rs.MoveNext

    X = X + 1

Loop

Set oWBook = Nothing