Microsoft Access 掲示板

いつもお世話になります
hatenaさまのサイトで、印刷プレビューに[印刷][閉じる]ボタンを付加する関数https://hatenachips.blog.fc2.com/blog-entry-404.html
を参考にさせていただきました
このフォームに　EXCEL出力　のコマンドボタンを追加して　プレビューされたデータをEXCELデータとして取り込みしたいです
コマンドボタンのクリック時のコードは　別サイトで見て書いてみました

 　　Dim strsql As String
    Dim strFileName As String
    Dim xlapp As Object
    Dim myCn As New ADODB.Connection
    Dim myRs As New ADODB.Recordset
    Dim colcnt As Integer
    Dim csOutputFileName As AccessObject

    On Error GoTo Err_Exit

    'ﾌｧｲﾙ名作成
    strFileName = csOutputFileName & "_" & Format(Date, "yyyymmdd") & ".xlsx"

    'EXCELｱﾌﾟﾘｹｰｼｮﾝを起動
    Set xlapp = CreateObject("Excel.Application")

    Set myCn = CurrentProject.Connection

    strsql = "SELECT * FROM テストテーブル"

    'ﾚｺｰﾄﾞｾｯﾄｵｰﾌﾟﾝ
    myRs.Open strsql, myCn, adOpenForwardOnly, adLockReadOnly

    With xlapp
        'ｾｯﾄする過程が見えないよう一旦不可視
        .Visible = False

        '新しいBookを追加
        .Workbooks.Add
        .Worksheets("Sheet1").Select

        'ﾚｺｰﾄﾞｾｯﾄのﾌｨｰﾙﾄﾞ名（見出し）出力処理
        For colcnt = 0 To myRs.Fields.Count - 1
            .Worksheets("Sheet1").Cells(1, colcnt + 1).Value = myRs.Fields(colcnt).Name
        Next

        '結果値出力処理(1行目はﾍｯﾀﾞｰなので、2行目1列目からｾｯﾄ
        .Cells(2, 1).CopyFromRecordset myRs

        '列幅自動調整
        .Cells.EntireColumn.AutoFit

        '完了したら保存
        .ActiveWorkBook.SaveAs FileName:=strFileName

        MsgBox "出力しました。", vbOKOnly + vbInformation

    End With

    Set myRs = Nothing: Close
    Set myCn = Nothing: Close
    'Excelを終了します
    xlapp.Quit
    Exit Sub

Err_Exit:
    MsgBox Err.Number & ":" & Err.Description, vbOKOnly + vbCritical, "OutputExcel()"
    Set myRs = Nothing: Close
    Set myCn = Nothing: Close
    xlapp.Quit

こんな感じでできると思いますが

途中の　　strsql = "SELECT * FROM テストテーブル"の箇所を　

　　　　　Report.RecordSource　にしたいのですが　できるのでしょうか？
　
また、どのように書けばよいのかわかりません

ご指導お願いいたします