Marcando dia

Amigos, peguei um exemplo de calendario no forum e estou tentando adaptar, seguinte: tomando como exemplo o mês de julho, na tabela Consultas campo Data coloquei para dois clientes uma data para cada, sendo:

Cliente 01 25/07/2010
Cliente 02 17/07/2010

No load do form quero que marque esses dias no calendario, segue a função:

Sub EscreveMes()
Verifica_Conexao
Dim i As Integer
Set Dados = New ADODB.Recordset
If Dados.State = 1 Then Dados.Close

With Dados
    .CursorType = adOpenStatic
    .CursorLocation = adUseClient
    .LockType = adLockPessimistic
     mSql = " SELECT Data,Hora,Paciente,Status,Id From Consultas"
    .Source = mSql
    .ActiveConnection = ConexaoFono
    .Open


FrmAgendados.TitMesAno.Caption = NomeMes + " " + Str$(Ano)
'-- Escreve as datas nas células
p% = DiaDaSemana - 1
'AtualizaDia
For N% = 0 To 41
    FrmAgendados.Casa(N%).Caption = ""
    Set FrmAgendados.imgMesa(N%).Picture = FrmAgendados.ImgList.ListImages(3).Picture
    FrmAgendados.Casa(N%).BackColor = Branco
    FrmAgendados.Casa(N%).ForeColor = Branco
Next

For N% = 1 To NumDias
    ' Se mês atual, mostra o dia atual em Vermelho
    FrmAgendados.Casa(p%).Caption = Str$(N%)
    If IndMes = Month(Now) And Ano = Year(Now) And N% = Day(Now) Then
        FrmAgendados.Casa(p%).BackColor = Cinza
        FrmAgendados.Casa(p%).ForeColor = Vermelho
        Set FrmAgendados.imgMesa(p%).Picture = FrmAgendados.ImgList.ListImages(1).Picture
       End If
    Else
        FrmAgendados.Casa(p%).BackColor = Cinza
        If FrmAgendados.Casa(p%).Index = 0 Or FrmAgendados.Casa(p%).Index = 7 Or FrmAgendados.Casa(p%).Index = 14 Or FrmAgendados.Casa(p%).Index = 21 Or FrmAgendados.Casa(p%).Index = 28 Or FrmAgendados.Casa(p%).Index = 35 Then
           FrmAgendados.Casa(p%).ForeColor = Amarelo
        Else
           FrmAgendados.Casa(p%).ForeColor = Branco
        End If
        Set FrmAgendados.imgMesa(p%).Picture = FrmAgendados.ImgList.ListImages(2).Picture
    End If
    p% = p% + 1
Next N%
End With
MesMom = IndMes         'Guarda o mês vigente
End Sub

No bloco em negrido é onde imagino que deveria entrar a comparação. A função esta funcionado normalmente só que marcando o dia atual com uma imagem, alguem tem uma ideia de como adaptar para o que quero? O banco é access.