Ayuda para mover carpetas

Hola tengo el siguiente problema

Tengo un formulario en el cual tengo un botón que mueve una carpeta de un destino a otro basándose en dos campos del formulario y respectivamente de su tabla

Me gustaría que no tuviera que darle clic a cada registro si no reemplazar ese botón actual por uno que realice una consulta en la que recoja de la tabla el valor rutaalmacenado, rutaarchivado y que lo condicione con el campo Archivar de tipo texto de dos caracteres. (Si y No) son los valores que almacena este campo Archivar.

hasta el momento el botón que hace esta función tiene este código

Private Sub Archivarcarpeta_Click()
Dim rutacontrol As String, rutaarchivo As String
Dim fso As Scripting.FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
rutacontrol = (Me.Ruta) 'Ruta origina
rutaarchivo = (Me.rutaarchivado) 'Ruta nueva
If fso.FolderExists(rutaarchivo) Then
MsgBox "El proceso que intenta archivar ya fue archivado anteriormente", vbInformation, "Carpeta Duplicada"
Else
fso.MoveFolder rutacontrol, rutaarchivo
MsgBox "Proceso archivado correctamente", vbInformation, "Carpeta Archivada"
End If
End Sub

gracias por la ayuda!