[Resolvido]Mudar a cor da fonte de um item na mesma linha após atualizar uma combo

Boa tarde,preciso mudar a cor da fonte em um campo para mostrar que pertence a uma categoria, isto em um subformulário
usando o evento após atualizar de uma combo. Office 2003 - Sistema Windows XP Profissional. Tentei esse código abaixo, mas não deu certo, pois marca toda coluna, e eu preciso que mude a cor somente do item na mesma linha. Nota: Foi feita buscas com
este tópico.

Private Sub Id_Produto_AfterUpdate()
On Error GoTo Trato
Dim StrFiltro As String
Dim Categ 'Categ ----> Categoria
Dim Prom 'Prom ------> Promoção
StrFiltro = "Id_Produto = " & Id_Produto
Categ = DLookup("CódigoDaCategoria", "Tabela_Produtos", StrFiltro)'Busca o nº da categoria
If Categ = 4 Then '4 --> Cozinha
Me.TotaLDaLinha.ForeColor = 255
Else
If Categ = 13 Then '13 -> Bar
Me!TotaLDaLinha.ForeColor = 16711680
End If
End If
Me!PreçoUnitário = DLookup("Preco_Produto", "Tabela_Produtos", StrFiltro)
Me!EstoqueAt = DLookup("[Estoque]", "C_Estoque", StrFiltro)
If EstoqueAt < 11 Then
MsgBox " Produto está com estoque no mínimo,tem " & UCase(Me.EstoqueAt) & " unidade(s)", vbInformation, "Aviso!"
End If
Prom = DLookup("Promocao", "Tabela_Produtos", StrFiltro)'Busca se o produto está na promoção
If Prom = -1 Then
MsgBox "Produto em Promoção" & vbCrLf & vbCrLf & "De R$ " & UCase(Me.PreçoUnitário) & " Reais" & vbCrLf & vbCrLf & "Por R$ " & DLookup("Preco_Promocao", "Tabela_Produtos", StrFiltro) & " Reais", vbInformation, "Aviso!"
Me!PreçoUnitário = DLookup("Preco_Promocao", "Tabela_Produtos", StrFiltro)
End If
Sair_Id_Produto_AfterUptade:
Exit Sub
Trato:
If Err.Number = 3075 Then
Exit Sub
Else: MsgBox Err.Description
End If
Erro_Id_Produto_AfterUptade:
MsgBox Err.Description
Resume Sair_Id_Produto_AfterUptade
End Sub

caro amigo Gil de uma olhado no exemplo do nosso amigo Avelino e veja se serve.

http://www.usandoaccess.com.br/dicas/dica3.asp

Obrigado Bred pela ajuda, mas não deu certo as orientações fui no site, na verdade o eu quero é o seguinte: quando atualizar a combo um item da linha mudar de cor para identificar uma categoria. Mas veleu pela dica...Este código abaixo que eu postei muda de cor a coluna.

Categ = DLookup("CódigoDaCategoria", "Tabela_Produtos", StrFiltro)'Busca o nº da categoria
If Categ = 4 Then '4 --> Cozinha
Me.TotaLDaLinha.ForeColor = 255
Else
If Categ = 13 Then '13 -> Bar
Me!TotaLDaLinha.ForeColor = 16711680
End If
End If

Mais uma vez boa tarde todos, está resolvido o código seguindo orientações do JPaulo, que em subformulário só com formatação condicional, visto neste forum. Veja abaixo como ficou no Formilário e obrigado pela atenção.