exportar datos a un doc excel vb6

[OYEME]

Const cn = "provider=sqloledb;uid=sa;database=northwind;serve r=."
Dim rs As New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "select * from products", cn, adOpenDynamic, adLockOptimistic

Dim Hoja As New Excel.Application
Hoja.Workbooks.Add
Hoja.Cells(1, 1) = "ProductID"
Hoja.Cells(1, 2) = "ProductName"
Hoja.Cells(1, 3) = "UnitPrice"
Hoja.Cells(1, 4) = "UnitsinStock"
Hoja.Cells(1, 5) = "Monto"
i = 2
rs.MoveFirst
Do
Hoja.Cells(i, 1) = rs(0)
Hoja.Cells(i, 2) = rs(1)
Hoja.Cells(i, 3) = rs(5)
Hoja.Cells(i, 4) = rs(6)
Hoja.Cells(i, 5) = rs(5) * rs(6)
i = i + 1
rs.MoveNext
Loop Until rs.EOF

bueno eso pasa de uin recordset a un excel para un grilla ya te imaginaras
nos vemos