This wont create the relationships between the tables, but you can export all the tables themselves using this method:
DoCmd.TransferDatabase acExport, "Microsoft Access", _
"C:\DataBaseToExportTo.mdb", _
acTable, _
"SourceTableName", _
"DestinationTableName"
So use this code...