Access VisualBasic Script

Sub trasferDB()
         DoCmd.TransferDatabase acExport, "Microsoft Access", _
               "C:\Sales.mdb", acTable, "tblSales", "IceCreamSales"
        MsgBox "Sales data exported"
End Sub