Hola! Bueno con el codigo que te paso vas a poder hacer lo que pedis. Supongamos que tenes una base de datos que se llama "Prueba.mdb" y otra que se llama "Prueba2.mdb" y las dos estan ubicadas en "C:\sistema" el codigo seria asi:
Dim cnn As ADODB.Connection
Dim SQL As String
Set cnn = New ADODB.Connection
' Abro la base de datos de Access cuya
' tabla quiero exportar
With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString ="C:\sistema\Prueba.mdb"
.Open
End With
' Armo el SQL para agregar los datos
SQL = "INSERT INTO [C:\sistema\Prueba2.mdb].Productos SELECT * FROM Productos"
' Ejecuto la consulta
cnn.Execute SQL
' Cierro la base de datos
cnn.Close
Con esto copias todos los datos en la otra BD , siempre teniendo en cuenta que en "Prueba2" ya existe la tabla "Productos" . Una variante de esto seria copiar solo algunos registros, o sea decirle en la consulta que queres copiar, por ejemplo, solo los que se agregaron en una determinada fecha, para eso modificarias el SQL
SQL = "INSERT INTO [C:\sistema\Prueba2.mdb].Productos SELECT * FROM Productos WHERE FechaProducto = Fecha"
Se entiende?
Y por ultimo si lo que queres es crear la tabla "Productos" en "Prueba2", es decir no existe la tabla en la base de datos de destino y queres crearla y copiarle los datos, tendrias que modificar el SQL asi:
SQL = "SELECT * INTO [C:\sistema\Prueba2.mdb].Productos FROM Productos"
Bueno espero te sea util. Saludos
