Here is the full code I have right now. The tables with (last 5) q at the end are querys.
strPath = "M:\Research\Lung Us\Data\Exporting_OHSU\OHSU.accdb"
DoCmd.TransferDatabase acExport, "Microsoft Access", strPath, acTable, "Admission_DX", "Admission_DX", True
DoCmd.TransferDatabase acExport...