[Resolvido]Mudando as propriedades das caixas no visual basic

Boa tarde!!!
Estoutentando fazer  um dashboard atravez de um formulario. Minha ideia consiste de uma tela com varias caixas que mudarão de cor dependendo da informação recebida atravez de uma consulta acionada periodicamente.
Nessa consulta tenho um campo que ja possui a informação de qual caixa deve ser alterada.
Ja fiz varias tentativas para criar o comando caixaXXX.backcolor=XXX e não obtive sucesso.
A ultima tentativa foi com o codigo abaixo:

Private Sub Form_Load()

Dim dbsUTR As Database
Dim m As Variant
Dim rst As Recordset
   Set dbsUTR = CurrentDb
        Set rst = dbsUTR.OpenRecordset("StatusAtualConsulta", dbOpenDynaset)
      With rst
        lngred = RGB(255, 0, 0)
        .MoveFirst
        Do While Not .EOF
           If !situação <> 0 Then
               k = !Posição
               k.BackColor = lngred
               MsgBox !UTR
              .MoveNext
           End If
         Loop
      End With
     
     rst.Close
End Sub

Se alguem puder ajuda, agradeço.

Grato

Sim amigo Avelino. As caixas são enumeradas no Form e correspondem ás informações que estão na consulta.

Avelino funcionou assim:

Dim dbsUTR As Database
Dim rst As Recordset
Set dbsUTR = CurrentDb
Set rst = dbsUTR.OpenRecordset("StatusAtualConsulta", dbOpenDynaset)
With rst
lngred = RGB(255, 0, 0)
' .MoveFirst
Do While Not .EOF
If rst.Fields("situação").Value <> 0 Then
k = rst.Fields("Posição").Value
Me(k).BackColor = lngred
MsgBox k
MsgBox !UTR
.MoveNext
End If
Loop
End With

rst.Close

End Sub

Com o DAO na primeira linha, não tinha funcionado.
Mas agradeço o seu apoio e ajuda.