ADO:

 objConn.Execute "SELECT * INTO [c:\carpeta\archivo.mdb].TablaCopia FROM TablaOriginal"

DAO:

Dim DB as database

set DB = opendatabase("c:\tubaseorigen.mdb")

DB.execute "Select * into Tabla in 'c:\tubasedetino.mdb' from Tabla"



Pero esto no te copia los indices. Así que si necesitas de copiar indices prueba algo así:


Private Sub CopiarTabla(RutaBaseDatos As String, TablaOrigen As String,
TablaDestino As String)

    Dim objetAccess As Access.Application

    Set objetAccess = New Access.Application
    objetAccess.OpenCurrentDatabase RutaBaseDatos
    objetAccess.DoCmd.CopyObject vbNullString, TablaDestino, acTable,
TablaOrigen
    objetAccess.Quit
    Set objetAccess = Nothing

End Sub