Microsoft Access 掲示板

ありがとうございます
実際のコードは以下のようになっています

Dim Db      As DAO.Database
Dim Rs      As Recordset
Dim StrSQL  As String
Dim Fmt     As FormatCondition

Private Sub Form_Load()
    Set Db = CurrentDb
    StrSQL = "SELECT DISTINCT 文字色 FROM 項目MT ORDER BY 文字色"
    Set Rs = Db.OpenRecordset(StrSQL, dbOpenSnapshot)
    Me!項目.FormatConditions.Delete　　→ここで削除してるはず
    Do Until Rs.EOF = True
        Set Fmt = Me!項目.FormatConditions.Add(acExpression, acEqual, "[文字色] = " & Rs!文字色)
        Fmt.ForeColor = Rs!文字色　　→　ループ4回目のここでエラーになります
        Rs.MoveNext
    Loop
End Sub