access vbaでcsvを指定した期間でインポートする方法

Function ImportCSVData()
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim strSQL As String
    Dim startDate As Date
    Dim endDate As Date
    Dim pathCSV As String

    ' CSVファイルのパスと期間を設定
    pathCSV = "C:\path\to\your\csv\"
    startDate = #2023/01/01#
    endDate = #2023/12/31#

    ' 接続文字列とSQLクエリ
    Set conn = New ADODB.Connection
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & pathCSV & ";Extended Properties='text;HDR=YES;FMT=Delimited';"
    strSQL = "SELECT * FROM [yourfile.csv] WHERE DateColumn >= #" & Format(startDate, "yyyy-mm-dd") & "# AND DateColumn <= #" & Format(endDate, "yyyy-mm-dd") & "#"

    ' レコードセットを開く
    Set rs = New ADODB.Recordset
    rs.Open strSQL, conn, adOpenStatic, adLockReadOnly

    ' Accessのテーブルにデータを挿入
    Do While Not rs.EOF
        DoCmd.RunSQL "INSERT INTO YourTable (DateColumn, OtherColumn) VALUES (#" & Format(rs!DateColumn, "yyyy/mm/dd") & "#, '" & rs!OtherColumn & "')"
        rs.MoveNext
    Loop

    ' クリーンアップ
    rs.Close
    Set rs = Nothing
    conn.Close
    Set conn = Nothing
End Function