Access - agregar a tabla nombres de archivos

Sub AgregarArchivos()

    Dim Rst As DAO.Recordset, Archivo As String 'Definimos las variables

    Const Ruta = "C:\Ordenes\"                  'y la constante con la ruta de los archivos

    Set Rst = CurrentDb.OpenRecordset("ordenes") 'Abrimos la tabla

    Archivo = Dir(Ruta)         'Buscamos el primer archivo de la ruta

    Do While Archivo <> ""      'Mientras siga habiendo archivos en la carpeta

        Rst.AddNew              'Añadimos un nuevo registro

        Rst!F1 = Archivo        'Ponemos el nombre del archivo en el campo F1

        Rst.Update              'Guardamos el registro

        Archivo = Dir()         'Buscamos el siguiente archivo de la carpeta

        DoEvents

    Loop                        'Repetimos el ciclo

    Rst.Close                   'Cerramos la tabla

    Set Rst = Nothing           'Vaciamos la variable de objeto

End Sub