This Code is from Mr. Boblarson:
Dim objAcc as Object
Dim objAcc2 As Object
Set objAcc = New Access.Application
objAcc.OpenCurrentDatabase("C:\FilePathandNameHere.accdb")
objAcc.DoCmd.CopyObject "D:\AnotherFilePathAndNameHere.accdb", , acTable,"SourceTableNameHere"
objAcc.CloseCurrentDatabase
Set objAcc = Nothing
Dim objAcc as Object
Dim objAcc2 As Object
Set objAcc = New Access.Application
objAcc.OpenCurrentDatabase("C:\FilePathandNameHere.accdb")
objAcc.DoCmd.CopyObject "D:\AnotherFilePathAndNameHere.accdb", , acTable,"SourceTableNameHere"
objAcc.CloseCurrentDatabase
Set objAcc = Nothing