Hola
Se me ocurre que puedes crear un array de Command Buttons (para trabajar mejor) y una tabla con un código y el estado. Pones el index de los botones igual que el cod de la tabla. Recorres toda la tabla poniendo el estado de cada botón.
P.e.
TABLA
Código:
Cod Estado
1 1
2 1
3 2
4 1
5 2
Creas el array de botones empezando con el index a 1 del primer botón.
Creas un recorset con los datos de la tabla (Select * from Tabla) y lo recorres
Código:
For i=1 to 5
if reg.Fields(1)=1 Then 'Utilizamos 1 para NO mto
Command(i).BackColor = VBred
Else ' Como solo tiene dos opciones ponemos mto
Command(i).BackColor = VBgreen
end if
reg.movenext 'Siguiente registro
Next i 'Siguiente indice para los botones
Espero que te sirva como orientación, ten en cuenta que no he probado el código, lo he escrito directamente y puede tener errores, lo importante es la idea.
--Saludos--