Visual Basic - ERROR !!!

tengo un problema al dar un click en un boton tiene que mostra una list todo el contenido segun por categoria segun el boton que oprima asi que trato de buscar con el metodo find del adodc pero cuando llego al find me da un error de bloque with sin end with o de bloquedo error 91. alguien puede ayudarme se o agradeceria gracias

A mi me ha dado ese error cuando omito refrescar el Adodc antes de ejecutar la función Find. Lo que hago es refresco el control Adodc, luego le especifico el campo por el cual lo necesito ordenado y asi me funciona sin problemas el Find

saludos