Error 3061 (pocos parámetros. Se esperaba 1) al intentar eliminar registros de una base de datos

Tengo el siguiente código que lo que hace es eliminar de la tabla "Alumnado" los alumnos que no están en la tabla "Config_alumnado", así como las carpetas que haya con el nombre y apellidos de dicho alumnado. El problema es que me da un error en la cuarta linea (Set rs=...)

            Path = CurrentProject.Path
            'borramos las carpetas de cada alumno
            Dim rs As Recordset
            Set rs = CurrentDb.OpenRecordset("select * from alumnado WHERE NIE NOT IN (SELECT NIE FROM Config_alumnado)")
            rs.MoveFirst
            While Not rs.EOF
                carpeta = Path & "\Alumnado\" & rs("Apellidos").Value & " - " & rs("Nombre").Value
                BorrarCarpeta carpeta
                Rs. MoveNext
            Wend
            Rs. Close
            'borramos todos los alumnos
            CurrentDb. Execute "DELETE * FROM Alumnado WHERE NIE NOT IN (SELECT NIE FROM Config_alumnado)"

... Y no consigo solucionar el problema.