Visual Basic - COMO PASAR DATOS A EXCEL

HOLA A TODOS, TENGO UNA APLICACION EN VISUAL BASIC EN LA CUAL SE CARGAN UNOS DATOS DE UNA BASE DE DATOS, EXISTE UN BOTON EL CUAL ME EJECUTA UNA HOJA DE CALCULO EN EXCEL, PUES MI PREGUNTA ES COMO PUEDO PASAR LOS DATOS QUE TENGO CARGADOS EN LA APLICACION VISUAL BASIC A LA HOJA DE CALCULO QUE SE EJECUTA AL PULSAR EN EL BOTON.

GRACIAS Y UN SALUDO.

-No me calente demasiado, tendras q adaptarlo-

Private oxAp As Object 'que porqueria, perdon.
'
Public Sub Grilla2Xl(grilla As Object, PathYNombre As String, Optional Titulo As String)
Dim nr As Integer, nc As Integer, r As Integer, c As Integer, ro As Integer
Dim oxSh As Object, ss As String

nr = grilla.rows
nc = grilla.cols

Set oxSh = CreateObject("Excel.sheet")
Set oxAp = oxSh.Application

With oxAp
fon FonTit, True
If Titulo > "" Then
.cells(1, 1) = Titulo
ro = 2
End If
For r = 0 To nr - 1
If r = 1 Then fon FonNor, False: ro = ro + 1
For c = 0 To nc - 1
ss = grilla.TextMatrix(r, c)
.cells(r + 1 + ro, c + 1) = ss
Next c
Next r
End With

oxSh.SaveAs PathYNombre
MsgBox "Informe :" & vbCrLf & " " & Titulo & vbCrLf & "en" & vbCrLf & " " & PathYNombre

Set oxSh = Nothing
Set oxAp = Nothing
End Sub