Visual Basic - Guardar datos de una base en otra Ayuda!!!

Buen Dia!!!! Quisiera saber como hago para guardar datos de una base en otra donde la conexion ahora la hago asi

Dim WithEvents rst As Recordset
Dim WithEvents cnn As Connection

Sub Conexion()
Set cnn = New Connection
Set rst = New Recordset
cnn.Open "dsn=base"
cnn.CursorLocation = adUseServer
End Sub

¿que deberia agregarle? me podrian dar un ejemplo de una consulta en sql de ejemplo que me muestre como guardar un campo de una base a un nuevo campo de otra?
Gracias