Don't know why you would want to do this, but maybe you can modify this code.
At How To Use Access VBA To Copy A Table with DoCmd.CopyObject, there is this code
Code:
Private Sub btnMakeTable_Click()
'loeblcomservices.com
Dim strNewName As String
'append the combo box selected value to the text
strNewName = "Facility_" & Me.cboFacility
DoCmd.CopyObject , strNewName, acTable, "tblFacilityBlank"
End Sub
The last parameter would be the full path (drive, PathToDatabase, table name) to the database you want to copy.
Then there is Three ways to programmatically duplicate a table in MS Access by VBA.
See #2 (CopyObject)
Code:
DoCmd.CopyObject , "Products_Copy", acTable, "Products"
and #3 (DAO TransferDatabase method)
Code:
DoCmd.TransferDatabase acExport, "Microsoft Access", CurrentDb.Name, acTable, "Products", "Products_Copy", StructureOnly:=True