Microsoft Access 掲示板

いつもありがとうございます。
数カ所分からないところがあるので、教えてください。

1.件名の前に時刻を表示したい（例　10:00 〇〇と打ち合わせ）
2.件名の行間を狭めたい（複数あると枠外になって見えない為）
3.過去日の内容も表示しておきたい

よろしくお願い致します。

'予定表示プロシージャ
Public 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 & "#", _
        dbOpenForwardOnly, dbReadOnly)
    Do Until rs.EOF
        With Me("T" & rs!日付 - FirstDay)
            .Caption = .Caption & rs!件名 & vbCrLf & vbCrLf
        End With
        rs.MoveNext
    Loop
    rs.Close: Set rs = Nothing
End Sub