Access VisualBasic Script

Private Sub cmdSales_Click()
    DoCmd.TransferDatabase acExport, "Microsoft Access", "C:\Sales.mdb", acTable, "tblSales", "ISales"
End Sub