Microsoft Access 掲示板

申し訳ありません　使い方、確認不足でした。

Dim FirstDay As Date

'予定表示プロシージャ
Public Sub SetSchedule()
Dim i As Integer, rs As DAO.Recordset, zissagyou As String
    zissagyou = "実作業"
    For i = 1 To 42
        Me("T" & i).Caption = ""
    Next
    Set rs = CurrentDb.OpenRecordset( _
        "SELECT 作業日時,時間,SUM(時間の合計) FROM T_設計_日報入力 WHERE " & _
        "日時>#" & FirstDay & "# AND 日時<=#" & FirstDay + 42 & "# AND 作業No = '" & Me.txb作業No & "' AND 作業分類 = " & zissagyou & " GROUP BY 日時,時間,作業分類", _
     dbOpenForwardOnly, dbReadOnly)

    Do Until rs.EOF
        With Me("T" & rs!日時 - FirstDay)
            .Caption = .Caption & rs!時間の合計 & "H" & vbCrLf
        End With
        rs.MoveNext
    Loop
    rs.Close: Set rs = Nothing
End Sub

になります
作業No、作業分類は短いテキストです

SELECT T_設計_日報入力.作業No, T_設計_日報入力.作業名No, Sum(T_設計_日報入力.時間) AS 時間の合計
FROM T_設計_日報入力
WHERE (((T_設計_日報入力.日時)>=[Forms]![F_設計_実績確認_伝票処理]![FROM] And (T_設計_日報入力.日時)<=[Forms]![F_設計_実績確認_伝票処理]![TO]))
GROUP BY T_設計_日報入力.作業No, T_設計_日報入力.作業名No
HAVING (((T_設計_日報入力.作業No)=[Forms]![F_設計_実績確認_伝票処理]![txb伝票No検索]));

このクエリのSQLをベースに考えた時どうVBAにしたらよいか教えてほしいです