scusa ti chiedo un ultima cosa, adesso sembra funzionare ma invece di colorarmi
di rosso solo la casella di testo con l'IDdirittocivile uguale a 2 mi colora tutto, come mai?
Dim con As Object
Dim rs As Object
Dim stSql As String
Dim intOption As Integer
Dim fld As Field


Set con = Application.CurrentProject.Connection
stSql = "SELECT * FROM edit1"

Set rs = CreateObject("ADODB.Recordset")
rs.Open stSql, con, 1


While (Not (rs.EOF))
If rs.Fields("IDdirittocivile").Value = "2" Then
Me.MATERIA.BackColor = 8388863

MsgBox (ok)
End If


rs.MoveNext
Wend

rs.Close
Set rs = Nothing
Set con = Nothing

End Sub