I am filling a LV based on the values passed using radio buttons after update to nFilter(INT).

I am getting a mismatch and would like to figure this out. Basically what I am needing to do is compare the Archive Date Due on the column (ArchDateDue DateTime(8)) and compare them to display records that are between the given dates.

Code:
Private Sub FillArchiveDue(nFilter As Integer)
lvwArchiveDue.ListItems.Clear

RS(0).filter = "DATEDIFF(DD, ArchDateDue, CURRENT_TIMESTAMP) <= " & nFilter
 

    Do While Not RS(0).EOF
        With lvwArchiveDue.ListItems.Add(, "F" & RS(0)!id & "")
            .Text = RS(0)!id
            .SubItems(1) = RS(0)!id
            .SubItems(2) = RS(0)!clientid
            .SubItems(3) = RS(0)!clientname
            .SubItems(4) = RS(0)!DISC
            .SubItems(5) = Nz(RS(0)!ArchDateDue, #1/1/2000#)
            .SubItems(6) = Nz(RS(0)!ProgramNumber, 0)

        End With
        RS(0).MoveNext
        'Next row
    Loop

RS(0).filter = adFilterNone
   
End Sub
SO far just errors: "Arguments are of the wrong type, are out of acceptable range, or are in conflict of one another"