Visual Basic - copaiar datos entre bases

Hola buenas tardes me gustaria saber como traspasar unos registros de una base de datos a otra
lo que he echo a sido lo siguiente

pero obviamente """sql2 = "INSERT INTO FacturasLinea SELECT * FROM rsprBusc """" esta fila me da un error ya que es un recordset y no es uina tabla, alguien me podria decir como hacerlo

If rsprBusc.State = adStateOpen Then
rsprBusc.Close: End If
rsprBusc.Open "select * from FacturasLinea where CodFact=" & Factura.Text1, cn, adOpenKeyset, adLockOptimistic

If rsprBusc.EOF Or rsprBusc.BOF Then
Else
Dim sql2 As String
sql2 = "INSERT INTO FacturasLinea SELECT * FROM rsprBusc "
cni.Execute sql2

muchas gracias