Visual Basic - copiar ficheros usando ruta de una base de datos?

Tengo una base de datos con dos tablas en las que en cada una almaceno una ruta de un directorio.

como consigo copiar una carpeta que se encuentra almacenada en la ruta de la tabla1 en la carpeta de la ruta de la tabla2

He probado con filecopy seguido de las dos rutas accediendo con el data o almacenando el valor en variables pero cuando lo ejecuto me da un error que dice no hay registro activo.

Puedes poner el código que ejecutas??
Por lo que cuentas parece que el error está al recoger los datos de las tablas.

Esta es la linea que uso para intentar copiar:

fso.CopyFolder Data3.Recordset.Fields("Ruta"),("Carpeta"), Data1.Recordset.Fields("Ruta").Value

uso fso.copyfolder para que se copien tambien subdirectorios

Algo está mal.
Fijate, ("Carpeta") le falta "... .Recordset.Fields", porque supongo que es el destino, y a parte, el parámetro 3 de "CopyFolder" debe ser un boleano (true o false).

Pues no me sale. He probado a usar variables pero me sigue dando el mismo error.

Voy a dejar todo el codigo.

La idea del programa es que cuando se de de alta un nuevo registro en la base la tabla se copie el directorio de una en la otra.

Private Sub cmdgrabar_Click()
Dim fso As New FileSystemObject
Dim rutaf As String
Dim carpetaf As String
Dim rutap As String

Dim mensaje
Dim bandera As Boolean
If ((Combo2.Text = "") Or (Combo2.Text = "Elija Fuente...") Or (Combo1.Text = "") Or (Combo1.Text = "Elija usuario...") Or (txtfecha.Text = "") Or (txtobservacion.Text = "")) Then
mensaje = MsgBox("Error de datos, los campos no estan correctamente rellenos", vbExclamation, "Error")
Else
If Data2.ReadOnly = True Then
mensaje = MsgBox("Esta relación no es modificable", vbExclamation, "Advertencia")
Else
Data2.Refresh

If bandera = 0 Then
rutaf = Data3.Recordset.Fields("Ruta").Value
carpetaf = Data3.Recordset.Fields("Carpeta").Value
rutap = Data3.Recordset.Fields("Ruta").Value
Data2.Recordset.AddNew
Data2.Recordset.Fields("Fuentes") = Combo2.Text
Data2.Recordset.Fields("Usuario") = Combo1.Text
Data2.Recordset.Fields("Fecha") = txtfecha.Text
Data2.Recordset.Fields("Observacion") = txtobservacion.Text
Data2.Recordset.Fields("Correcta Subida") = False
Data2.Recordset.Update
mensaje = MsgBox("Registro dado de alta", vbInformation, "Enhorabuena")
'fso.CopyFolder rutaf, rutap
End If
End If
End If

Falla justo en el CopyFolder??
Que valores tienen rutaf y rutap??

Existe rutap??

Si existen es que toy un poco frustrada porque llevo ya intentandolo tiempo y no me sale. en rutaf almaceno el valor del campo de la tabla1 y en rutap la de destino pero me da el error en la linea:

rutap = Data3.Recordset.Fields("Ruta").Value
rutaf = Data3.Recordset.Fields("Ruta").Value

Pero es exactamente lo mismo ...!!! como puede fallar??
Porque no igualas rutaf a rutap???

Como la voy a igualar? son rutas distintas, que tengo almacenada en distintas tablas una es la ruta de las carpetas de fuentes c:\fuentes y otra es la ruta de los usuarios c:.\usuarios y yo lo que quiero es darle una fuente a un usuario copiando la fuente desde la ruta almacenada en el campo fuente de la base de datos a la carpeta de usuario cuya ruta está almacenada en la base de datos.

Pues en el código fuente tienes:

rutap = Data3.Recordset.Fields("Ruta").Value
rutaf = Data3.Recordset.Fields("Ruta").Value

y para mi es lo mismo una que otra según esto.

y al final pones : fso.CopyFolder rutaf, rutap

Que error te da??????? QUe no existe el objeto?? Porque no pruebas con un direccionamiento absoluto momentaneamente para usar las funciones luego a ver si el error esta en tu jerarquia de archivos o en otro lado

Qué dices????
El error que dá te lo está diciendo en la primera pregunta.
Y ahora nos explicas qué es un "direccionamiento absoluto" porque no hemos quedado (al menos yo) en blanco.
y lo del error en "jerarquia de archivos" no tiene desperdicio. Tio! eres un figura, sigue así que llegarás lejos.