Tabla1.Campo --> Variable --> Tabla2.Campo

[jorevale]

Bueno, ya lo he logrado con el siguiente código:

(De todas formas, si hay alguna forma mejor de hacerlo, por favor, dimelo)

Private Sub Prueba()
Set CN2 = New Connection
With CN2
.Provider = "Microsoft.jet.OLEDB.3.51"
.ConnectionString = "C:\AUTI\AST\ACUM.mdb"
End With
CN2.Open
Set RS2 = New Recordset
RS2.Source = "Select * from AVISOS"
RS2.ActiveConnection = CN2
RS2.CursorType = adOpenStatic
RS2.CursorLocation = adUseClient
RS2.LockType = adLockOptimistic

Set CN1 = New Connection
With CN1
.Provider = "Microsoft.jet.OLEDB.3.51"
.ConnectionString = "C:\AUTI\AST\AUTI.mdb"
End With
CN1.Open
Set RS1 = New Recordset
RS1.Source = "Select * from AVISOS"
RS1.ActiveConnection = CN1
RS1.CursorType = adOpenStatic
RS1.CursorLocation = adUseClient
RS1.LockType = adLockOptimistic
RS1.Open
RS1.MoveFirst
RS2.Open
While Not RS1.EOF
RS2.AddNew
' RS2!ID_Aviso = RS1!ID_Aviso
RS2!Nombre = RS1!Nombre
RS2!Fijo = RS1!Fijo
RS2!Movil = RS1!Movil
RS2!Direccion = RS1!Direccion
RS2!Localidad = RS1!Localidad
RS2.Update
RS1.MoveNext
Wend
End Sub