Optimering af SQL træk i VBA

Jeg har en .csv-fil med +100.000 ordrelinjer.Filen kompilerer data og  får altså flere og flere linjer.
Vha. SQL importeres udvalgte data fra filen. Alt virker, men problemet er performance.
Hvis .csv-filen indeholder ca. 20.000 linjer er svartiden ca. 2 sekunder. Hvis antallet af linjer er ca. 90.000 er svartiden ca. 8 sekunder of hvis antallet af linjer er 215.000 (ca. 12 mdrs data) er svartiden helt oppe på ca. 65 sekunder.

Filen er sorteret efter dato således at de yngste linjer ligger nederst.

Kan jeg på nogen måde begrænse svartiden ved kun at lade SQL'en kigge i dele af filen eks. fra en bestemt dato, eks. sidste måneds data eller lignende?

Kode:

Sub SQL_TEST()

Dim StartTime As Date, EndTime As Date
Dim RS As New ADODB.Recordset
Dim Constr As String
Dim SQL As String

    StartTime = Now()
   
    On Error GoTo ErrHandler
        Worksheets("Test_SQL").Activate
    On Error GoTo 0
   
    If Range("A2").CurrentRegion.Rows.Count > 1 Then
        ActiveSheet.Range("A2:FF" & Range("A2").CurrentRegion.Rows.Count).Clear
    End If
   
    Constr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                "Data Source=G:\TEST\;" & _
                "Extended Properties=Text;"
   
        SQL = "SELECT * FROM TESTdata12mdr.csv WHERE Oprettet BETWEEN DateValue(Now) - 30 And DateValue(Now)+1 and Land = ""DK"" and LEN(PMgr) >3;"        'ca. 65 sek

            Set RS = New ADODB.Recordset
            RS.Open SQL, Constr, adOpenForwardOnly, adLockReadOnly
               
                If Not RS.EOF Then
                    ActiveSheet.Range("A2").CopyFromRecordset RS
                Else
                        MsgBox "Ingen data indenfor afgrænsningen", vbCritical
                End If
                       
            RS.Close
            Set RS = Nothing
           
    EndTime = Now()
    Debug.Print Format(EndTime - StartTime, "hh:mm:ss")
   
    Exit Sub
   
ErrHandler:

    MsgBox "Errorhandler tog over", vbCritical
    RS.Close
    Set RS = Nothing

End Sub