Импорт данных из Excel в Access с учетом запроса

[inv.DS]

Добрый день! Госопода помогите с вопросом, есть код:

Dim excel_app As Object
Dim excel_sheet As Object
Dim max_row As Integer
Dim max_col As Integer
Dim row As Integer
Dim col As Integer
Dim conn As ADODB.Connection
Dim statement As String
Dim new_value As String
Dim file_path As String

'On Error GoTo Er:

    DoEvents
    Set excel_app = CreateObject("Excel.Application")
    
   'excel_app.Visible = True

    ' Open the Excel spreadsheet.
    excel_app.Workbooks.Open FileName:=txtExcelFile.Text
    ' Check for later versions.
    If Val(excel_app.Application.Version) >= 8 Then
        Set excel_sheet = excel_app.Sheets("Loans")
    Else
        Set excel_sheet = excel_app
    End If

    ' Get the last used row and column.
    max_row = excel_sheet.UsedRange.Rows.Count
    max_col = excel_sheet.UsedRange.Columns.Count

    ' Open the Access database.
    Set conn = New ADODB.Connection
    conn.ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & txtAccessFile.Text & ";" & _
        "Persist Security Info=False"
    conn.Open

    For row = 2 To max_row
        ' Compose an INSERT statement.
        statement = "INSERT INTO Loans VALUES ("
        For col = 1 To max_col
            If col > 1 Then statement = statement & ","
            new_value = Trim$(excel_sheet.Cells(row, col).Value)
            If IsNumeric(new_value) Then
                statement = statement & _
                    new_value
            Else
                statement = statement & _
                    "'" & _
                    new_value & _
                    "'"
            End If
        Next col
        statement = statement & ")"

        ' Execute the INSERT statement.
        conn.Execute statement, , adCmdText
    Next row

    ' Close the database.
    conn.Close
    Set conn = Nothing


    ' Close the workbook saving changes.
    excel_app.ActiveWorkbook.Close True
    excel_app.Quit

    Set excel_sheet = Nothing
    Set excel_app = Nothing

    'Screen.MousePointer = vbDefault
    MsgBox "Copied " & Format$(max_row - 1) & " values."
'Exit Sub
'Er: MsgBox Err.Description, vbCritical

Ситуация следующая, выбираем базу данных и следом лист из которого происходит импорт данных в базу данных. Вопрос, в листе есть поле "Дата" к примеру содержит 13.02.2013 как сделать так, чтобы при импорте в базу данных, записи которые уже есть в базе данных от такого числа не добавлялись, а добавлялись всегда разной даты, то есть на дату вперед к примеру. Подскажите пожалуйста!

[Diskretor]

If Date <= CDate(excel_sheet.Cells(row, 4)) Then conn.Execute statement, , adCmdText