Sub export_tables()
DoCmd.TransferDatabase acExport, "dBase 5.0", "Drive:Folder\", acTable, "AccessTableName", "DBaseFileName", False
DoCmd.TransferDatabase acExport, "dBase 5.0", "Drive:Folder\", acTable, "AccessTableName", "DBaseFileName", False
DoCmd.TransferDatabase acExport, "dBase 5.0", "Drive:Folder\", acTable, "AccessTableName", "DBaseFileName", False
DoCmd.TransferDatabase acExport, "dBase 5.0", "Drive:Folder\", acTable, "AccessTableName", "DBaseFileName", False
End Sub