Private Sub Command1_Click()
   Dim X As Object
    Dim XL As Object
    Set X = CreateObject("Excel.Application")
    Set XL = X.Workbooks.Open("c:\fdb\test.xls")
    X.Application.Visible = True
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    X.Quit
    X.Application.Quit
    Set X = Nothing
    Set XL = Nothing
    Unload Me
    Form1.Show
 End Sub