Ayuda para un Bucle

Hola expertos, tengo las siguientes lineas que pertenecen a un código que lo que hace es extraer imágenes de una base de datos MYSQL, todo funciona perfectamente importando una sola imagen, pero lo que yo quiero es que me recorra toda la tabla y me extraiga todas las imágenes y ubicarlas en una carpeta, La base de datos consta de 3 campos ID, FOTO, NOMBRE, En el id esta el numero con que se identifica, en el CAMPO esta la foto, es un campo Blob, y en el nombre se encuentra el nombre del archivo (ej. Foto1.jpg), las lineas donde quiero hacer un bucle son las siguientes:

cn.Open

Set rs.ActiveConnection = cn

rs.CursorLocation = adUseClient

rs.CursorType = 3

rs.LockType = 3

rs.Source = "SELECT * FROM FOTOS WHERE id=1"

rs.Open

ms.Type = adTypeBinary

ms.Open
ms.Write rs.Fields("FOTO").Value

ms.SaveToFile ("F:\Usuario\Escritorio maquina 2\Nueva carpeta (12)\PRUEBA.JPG"), adSaveCreateOverWrite

rs.Close

ms.Close

cn.Close

Espero contar un su ayuda