MySQL - Problemas+mysql+vb6+longblob

Hola a todos estoy que utilizo visual 6.0 con service pack 6 , ADO 2.8 , y estoy que hago una consulta a un campo longblob :

rs.Open "Select file_name,image from files WHERE file_id = " & Val(codigo), CONEXION, adOpenKeyset, adLockOptimistic

If rs.EOF = True Or rs.BOF = True Then Exit Sub

pero me vota un error alguien que me pueda ayudar que haya pasado por este error o que me recomiendan bye gracias de ante mano...