Visual Basic - PROBLEMAS para EXPORTAR a EXCEL info en WIN98

Buenas Tardes..

tengo un problema.. puedo exportar informacion en windows XP pero en win98 es donde tengo problemas me carca errores

este es el codigo para poder exportar a excel

Dim loexcel As Excel.Application
Dim libro As Excel.Workbook
Dim hoja As Excel.Worksheet
Dim inicio As Integer
Dim i, j, indice As Integer
inicio = 0
Set loexcel = New Excel.Application
Set libro = loexcel.Workbooks.Add
Set hoja = loexcel.ActiveSheet
loexcel.Visible = True

For i = inicio To 6
If DBGrid1.Columns(i).Visible Then
indice = indice + 1
hoja.Cells(1, indice) = DBGrid1.Columns(i).Caption
For j = 0 To Data1.Recordset.RecordCount - 1
hoja.Cells(j + 2, indice) = DBGrid1.Columns(i).CellValue(DBGrid1.GetBookmark(j))
Next
End If
Next
hoja.Rows(1).Font.Bold = True
'primera fila en negritas
hoja.Columns("A:Z").AutoFit

Set loexcel = Nothing
Set libro = Nothing
Set hoja = Nothing

me podrian decir en que estoy mal????
o si tengo que agregar o correr un parche en win98

gracias por su tiempo y ayuda

Bueno colega, le cuento que encontre algunos error aunque son pequeños pero sustanciosos, si no los ves bien te vuelves loco, en fin... te devuelvo el codigo con los problemitas resueltos, miralo bien y compara con el codigo que colocaste inicialemte veras algunas diferencia y una que otra mejora, espero y le funcione porque a mi me funciono sin problemas.
Suerte colega.

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim loexcel As Excel.Application
Dim libro As Excel.Workbook
Dim hoja As Excel.Worksheet
Dim i, j, indice As Integer
Set loexcel = New Excel.Application
Set libro = loexcel.Workbooks.Add
Set hoja = loexcel.ActiveSheet
loexcel.Visible = True
With DataGrid1
For i = 1 To .Columns.Count
If .Columns(i - 1).Visible Then
indice = indice + 1
hoja.Cells(1, indice) = .Columns(i - 1).Caption
For j = 0 To Adodc1.Recordset.RecordCount - 1
hoja.Cells(j + 2, indice) = .Columns(i - 1).CellValue(.GetBookmark(j))
Next
End If
Next
End With
hoja.Rows(1).Font.Bold = True
'primera fila en negritas
hoja.Columns("A:Z").AutoFit

Set loexcel = Nothing
Set libro = Nothing
Set hoja = Nothing
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

pdta. se me habia olvidado decirte que a mi ADODataControl no el cambie el nombre asi que el codigo donde dice Adodc1 cambialo por Data1 mejor dicho:

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim loexcel As Excel.Application
Dim libro As Excel.Workbook
Dim hoja As Excel.Worksheet
Dim i, j, indice As Integer
Set loexcel = New Excel.Application
Set libro = loexcel.Workbooks.Add
Set hoja = loexcel.ActiveSheet
loexcel.Visible = True
With DataGrid1
For i = 1 To .Columns.Count
If .Columns(i - 1).Visible Then
indice = indice + 1
hoja.Cells(1, indice) = .Columns(i - 1).Caption
For j = 0 To Data1.Recordset.RecordCount - 1
hoja.Cells(j + 2, indice) = .Columns(i - 1).CellValue(.GetBookmark(j))
Next
End If
Next
End With
hoja.Rows(1).Font.Bold = True
'primera fila en negritas
hoja.Columns("A:Z").AutoFit

Set loexcel = Nothing
Set libro = Nothing
Set hoja = Nothing
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''