[VBA/ACCESS] Colorare casella di testo in base al valore del campo ID

[pagineasp2]

scusami tanto

While (Not (rs.EOF))
If rs.Fields("IDdirittocivile").Value = 2 Then
Me.MATERIA_Etichetta.BackColor = "red"
MsgBox (ok)
End If

adesso mi dice tipo non corrispondente (If rs.Fields("IDdirittocivile").Value = 2 Then
)