Cores de linhas ou textos do list box com cores diferentes

Olá, estou com um list box e queria que a cor do texto ou se tiver como a linha
ficar com a cor diferente dos demais registros conforme o status.

Fiz o código abaixo mas esta mudando a cor de todos os registros e não do registro especifico

Código:

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim status As String


strSql = "Select IdServico, Cliente, Data, DataDeEntrega, Nome, Status, LoginDesigner FROM CnsListaOS WHERE (Confirmado = -1) ORDER BY DataDeEntrega ASC;"
Me!clstOS.RowSource = strSql
Me!clstOS.Requery

Set db = CurrentDb
Set rs = db.OpenRecordset(strSql)

If rs.RecordCount = 0 Then
    Exit Sub
    rs.MoveFirst
Else
    Do While Not rs.EOF
    status = rs("[Status]")
        If status = "Refugado" Then
            'Altera a cor da fonte para Azul
            Me.clstOS.ForeColor = RGB(0, 0, 255)
   
        Else
            'Altera a cor do fundo para Vermelha
            Me.clstOS.ForeColor = RGB(255, 0, 0)
        End If
    rs.MoveNext
    Loop
End If

rs.Close
Set rs = Nothing
db.Close
Set db = Nothing

uma outra duvida seria o seguinte: o que seria esse EOF / BOF e qaundo utilizar um ou outro
desde já agradeço

Paulo

Veja um exemplo aqui:

maximoaccess.com/t21543p17-resolvidoexemplo-jpaulo#158901


BOF = indica o inicio de uma tabela

EOF = indica o final de uma tabela

Exemplo:

Do While recordset. not EOF() = Faça enquanto não chegar no final do recordset.


[ ]'s