No se, si seguro que los dos campos tienen valor, para intentar detectar el error puedes hacer:
- Antes de ejecutar el Open hacer Response.write(strQuery) y copiar y pegar en tu bd, a ver si ejecutando la query directamente funciona
- Probar solo Select * from Tblcliente, sin where, a ver si la conexion con la BD esta bien
- Si no esta bien, probar rs.Open strQuery, Cnn (sin los paramtetros de tipo de cursor, 1, 2)
De todas formas la forma de construir la query la tienes que mejorar, yo te di solo un ejemplo, como lo tienes ahora, si CSR fuera vacío, te saldría una query así:
Select * from Tblcliente
where AND distribuidor = 'distribuidor'