No me muestra los resultados de la consulta

[mariano_donati]

Lo que yo veo son dos cosas. Primero la cadena de consulta SQL está mal elaborada, más precisamente lo que está mal es la parte de la concatenación, se utiliza el simbolo & en lugar de +. Lo segundo es que no estoy seguro si el replace que haces puede funcionar bien. Yo siempre prefiero guardar en una variable la cadena que resulta del replace y de ahí la utilizas para lo que sea. Algo así:

If (Request.Form("afiApellido") <> "") Then
consulta__MMColParam = Replace(Request.Form("afiApellido"),"'","''")
End If

Y la cadena de consulta te quedaría algo como esto:

"SELECT afiApellido, afiNombre, afiTipoDoc, afiDNI, Activo FROM SMIAfiliados WHERE afiApellido = '"&consulta_MMColParam&"'"

Otra cosa, no hace falta escribir esta linea tan larga (consulta.Fields.Item("afiApellido").Value) para sacar el valor de la base de datos de ese campo, siemplemente haciendo consulta("afiApellido") ya estarías obteniendo el mismo resultado. Pero obviamente eso corre por cuenta de cada uno, mientras que tu creas que es prolijo y lo más explicativo de lo que estás haciendo.
Espero que con esos cambios te funcione. Saludos.