I have the following code for taking periodic backups:
Function ImportInventory()
Dim strHost1Path As String
strHost1Path = DLookup("fldConfigValue", "tblConfig", "[fldConfigName]='Host1Path'")
DoCmd.TransferDatabase acImport, "Microsoft Access", _
strHost1Path, acTable...