Visual Basic - ayuda urgente

Tengo un pequeño problema, tengo un programa en visualBasic y el motor de la base de datos es acces, la relacion de la base de datos lo hize por un modulo de conexion, el problema radica es que necesito exportar toda la información a excel, pero no tengo ni idea como es el programa para hacer una exportacion, y lo necesito para mañana 20 de noviembre a las 9am y estoy demasiado preocupada, no se como realizarlo, si me pueden ayudar, muchicimas gracias por su colaboracion.

Ya hubo una inquietud anterior sobre ese tema pero te la repito:
1)Tienes que crear el objeto de Excel a nivel modulo:
Public objExcel As Excel.Application

2)Llamas a uns rutina para Iniciar Excel:
Sub Inicia_Excel()
Dim xlsArchivo As String

xlsArchivo = App.Path & "\NOMBRE FILE EXCEL.xls"

Set objExcel = CreateObject("EXCEL.APPLICATION")
objExcel.Visible = False
objExcel.Workbooks.Open FileName:= xlsArchivo, ReadOnly:=False, ignoreReadOnlyRecommended:=True
End Sub

3)Cargas la data
Sub Cargar()
Dim J as Long
Dim lresult As Long

J = 0
Do While Not rs.Eof
J = J + 1
objExcel.ActiveSheet.Cells(1, J) = rs!Cantidad 'Graba en Excel
rs.MoveNext
Loop
objExcel.Save
objExcel.Saved = True
objExcel.Quit 'Cierras Excel

lresult = ShellExecute(Me.hWnd, "Open", xlsArchivo & vbNullChar, "", 0, SW_SHOWNORMAL)
'Puedes usar "Print" en lugar de open si solo quieres imprimir
End Sub

Y no te desesperes, que con calma lo puedes hacer. Si algo no entiendes, no dudes en escribir a mi correo, que con todo gusto tratare de ayudarte.

Saludos desde Lima