Visual Basic - Enviar datos a Excel

Saludos amigos, recien me he iniciado en el cuento de programación en visual basic de hecho acabo de terminar un curso de 30 horas en la universidad EAFIT de la ciudad de Medellin, ahora bien mi necesidad es la siquiente estoy montando un proyecto, el cual tiene una base de datos en excel y quiero crear un programa en visual con sus formularios y todo el cuento que este lleva, ya que es más práctico y versatil además de que es estetico si alguien sabe el código o la forma en que puedo realizar dicho proyecto se los agradecere enormemente.

Mil Garacias

Carlos H Toro
[email protected]
Medellín Colombia.

HOLA AQUI TIENES 2 EJEMPLOS
'pon un control list1
'ingrese unos cuantos valores en la lista
'activa en referencias Microsoft Excel Library

'el siguiente codigo ingrese en boton de comando
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

Este ejemplo tiene:

Un flexgrid con datos y al presionar el boton de comando abro el excel, le ponfgo titulos a la primera fila (algunas celdas) y luego le paso el contenido del FlexGrid.

Private Sub Command2_Click()
On Error GoTo control
With Flex_Muestra
Dim ApExcel As Variant, Color As Integer
Set ApExcel = CreateObject("Excel.application")
ApExcel.Visible = True
ApExcel.Workbooks.Add
ApExcel.Cells(1, 1).Formula = "Num"
ApExcel.Cells(1, 2).Formula = "Departamento"
ApExcel.Cells(1, 3).Formula = "Provincia"
ApExcel.Cells(1, 4).Formula = "Distrito"
ApExcel.Cells(1, 5).Formula = "CCP"
ApExcel.Cells(1, 6).Formula = "Zona Distrital"
ApExcel.Cells(1, 7).Formula = "NSE"
ApExcel.Cells(1, 8).Formula = "Manzana"
ApExcel.Cells(1, 9).Formula = "Viviendas"
ApExcel.Cells(1, 10).Formula = "Conglomerado"
ApExcel.Range("A1:J1").Borders.Color = RGB(255, 0, 0)
Dim Y As Integer
For Y = 1 To 10
ApExcel.Cells(1, Y).Font.Size = 12
ApExcel.Ce