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