Visual Basic - Exportar tabla desde VB a Excel generar(.xls)

Si tengo mi base de datos en Access y quiero exportar desde visual basic una tabla con sus respectivos campos e información a Excel para así generar un archivo .xls con solo oprimir un botón que es lo que tengo que hacer???....

Hola Janeth te voy ayudar:

Private sub ExportOneTable( )

'Deberemos referenciar DAO
Dim strExcelFile as String
Dim strWorksheet as String
Dim strDB as String
Dim strTable as String
Dim objDB as Database

'Cambiaremos estos datos de acuerdo a nuestras necesidades
strExcelFile= "C:\mis Documentos\mihoja.xls"
strWorksheet= "nuevahoja"
strDB = "C:\mis documentos\mibasededatos.mdb"
strTable = " mi tabla"
set objDb = openDatabase ( strDB )

'Si el fichero excel existe, puedes borrarlo aqui
if Dir ( strExcelFile ) <> " " then Kill strExcelFile

objDB.Execute " SELECT * INTO [Excel 8.0; DATABASE=" & strExcelFile & "].[" &strWorksheet & "] FROM "& "[" & strTable & "]"

objDB.close
set objDB = Nothing

End Sub

Espero que te sirva, por favor contestame si te sirvio, o no.