Adodc.recordsource = "... where Campo1='" & VarA & "' and (Campo2='" & VarB & "' or Campo2='" & VarC & "')"