Private Sub btnColor_Click()
'...
  Me.CodColor = j
Me.Requery' добавить
'...
end sub
' пара строк кода
Private Sub Form_Load()
usl
End Sub
Private Sub usl()
Dim fcd As FormatCondition, rst As DAO.Recordset
Set rst = Me.RecordsetClone
With Me.Text10.FormatConditions' поле Text10 поставил рядом
.Delete
   Do Until rst.EOF
      Set fcd = .Add(acExpression, , "[CodColor]=""" & rst.Fields("CodColor") & """")
      fcd.BackColor = rst.Fields("CodColor")
   rst.MoveNext
   Loop
End With

End Sub