Hente data fra Excel

Følgende benyttes til at importere data fra Excel regnaark :


Public Function HentDataFraExcel()
'Indlæs generelle kampagnedata fra ExcelFil

    Dim Xl As Object

    Dim rsKunde As New ADODB.Recordset
    Dim rsFiler As New ADODB.Recordset
    Dim cn As ADODB.Connection
   
    Set cn = CurrentProject.Connection
    Set Xl = CreateObject("EXCEL.APPLICATION")

    rsKunde.Open "tblKampagneData", cn, adOpenKeyset, adLockOptimistic
    rsFiler.Open "tblFilnavn", cn, adOpenStatic

    Xl.Workbooks.Open rsFiler!filnavn, False, True
       
        rsKunde.AddNew
        Xl.Sheets("Indtastningsark").SELECT
        rsKunde![KampagneNavn] = Xl.Range("C3")
        rsKunde![VirksomhedsID] = Xl.Range("C4")
    .... osv.

tblFilnavn indeholder oplysninger oplysinger om :
  sti og filnavn
  fildato
  filstørrelse
  Importeret (ja/nej)
  ImportDato

Importjobbet skal fremadrettet kun importere filer hvor kriteriet for importeret = nej

Hvad er syntaxen, og hvor skal jeg placere dette kriterie ?