Visual Basic - URGENTE! Crear doc .xls con base de datos

Buen Dia! Por favor necesito Urgente ayuda para crear un documento excel desde Visual con datos obtenidos desde una Base de datos, por favor, se les agradece toda la información posible, es realmente importante, de antemano Gracias......................Leomer!

' un ejemplo chuiquito pero pudes mejorarlo

'pon un control list1
'ingrese unos cuantos valores en la lista
'activa en referencias Microsoft Excel Library
'
Dim ApliExcel As Excel.Application
Set ApliExcel = New Excel.Application
ApliExcel.Workbooks.Add 'añde un libro
ApliExcel.Visible = True 'lo hace visble
Dim i As Integer
For i = 0 To List1.ListCount
ApliExcel.Worksheets(1).Cells(i + 1, 1).Value = List1.List(i)
Next

'cambia list por un recorset
'se puede .....todo se puede

Ok, gracias, eso me ayudara, pero................ como lo guardo?

'agrega el siguiente codigo al final
'cambiele de ruta
apliexcel.ActiveWorkbook.SaveAs FileName:="C:\Mis documentos\marco2.xls"