Exporting To Access Using Command Button

Dear All:

I have a form with multiple fields. I have created a command button which launches excel when pressed.

I wish to export specific fields from access to excel when this command button is pressed. In addition, specific fields from access is to be exported to specific fields in excel.

When I press this command button, it opens excel, and thats all.

Here is the code so far:

Private Sub excel_Click()
On Error GoTo Err_excel_Click
Dim oApp As Object
Set oApp = CreateObject("Excel.Application")
oApp.Visible = True

'Only XL 97 supports UserControl Property
On Error Resume Next
oApp.UserControl = True
Exit_excel_Click:
Exit Sub
Err_excel_Click:
MsgBox Err.Description
Resume Exit_excel_Click

End Sub

I am not the best programmar, any help will be wonderful.

Many thanks in advance,

Dion