Come ti consiglia Alethesnake fatti stampare a video la stringa

di sicuro c'è un % in più in un posto sbagliato
codice:
If Len(Trim(Session("tiposcadenza"))) > 0 Then
strSQL = strSQL & "% ' AND tiposcadenza = '" & Trim(Session("tiposcadenza")) & "'"
Else
strSQL = strSQL & "%' AND NOT tiposcadenza = 'CONTATTI'"
End If