Private Sub Command1_Click()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim excel_app As Object
Dim excel_sheet As Object
    Screen.MousePointer = vbHourglass
    DoEvents

    Set conn = New ADODB.Connection
    conn.ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & App.Path & "\wage_des.mdb"
    conn.Open
    Set rs = conn.Execute("SELECT * FROM Record ORDER BY NumberOfRecordForAll ASC")
    rs.MoveFirst
    ' Create the Excel application.
    Set excel_app = CreateObject("Excel.Application")
    ' Open the Excel workbook.
    excel_app.Workbooks.Open (App.Path & "\Report1.xls")
    Set excel_sheet = excel_app.WorkSheets("Sheet1")
    ' Use the Recordset to fill the table.
    excel_sheet.Cells.CopyFromRecordset rs
    excel_sheet.Cells.Columns.AutoFit

    ' Open the of the Ecxel_File
    excel_app.Visible = True

    ' Save the workbook.
    excel_app.ActiveWorkBook.Save

    Screen.MousePointer = vbDefault
    MsgBox "Ok"
End Sub