Microsoft Access 掲示板

たびたびになりますが、ご教授ください。
略の条件によって色を変えるように指定したいのですが、

実行時エラー2465
指定した式で参照されている”関”フィールドが見つかりません。
と表示されてしまいます。

VBAは以下になります。できれば、時間、略、氏名を一緒に変えたいのですが
よろしくお願いいたします。

ublic Sub SetSchedule()
Dim i As Integer, rs As DAO.Recordset
     For i = 1 To 42
         Me("T" & i).Caption = ""
     Next
      Set rs = CurrentDb.OpenRecordset( _
         "SELECT 日付, 時刻, 略, 氏名 FROM T予定 WHERE " &
         "日付>#" & FirstDay & "# AND 日付<=#" & FirstDay + 42 & "# ORDER BY
時刻", _
         dbOpenForwardOnly, dbReadOnly)
     Do Until rs.EOF
         With Me("T" & rs!日付 - FirstDay)
             .Caption = .Caption & Format(rs!時刻, "hh:nn") & " " & rs!略 &
rs!氏名 & vbCrLf
             If Me(rs!略).Value = "関" Then
       Me(rs!略 & rs!氏名).ForeColor = 8388608
     Else
       Me(rs!略 & rs!氏名).ForeColor = 0

End If

         End With
         rs.MoveNext
     Loop
     rs.Close: Set rs = Nothing
End Sub