Excel VisualBasic Script

Sub link()
     DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel9, _
            "SalesFigures", "C:\Sales.XLS", True
     MsgBox "Spreadsheet linked"
End Sub