Visual Basic - Ayuda VB

Hola.
Necesito una ayuda, estoy realizando una aplicación en Vb con Base de datos en mysql, cuando realizo una consulta y un dato no se encuentra en la base de datos la aplicación me arroja un error,
Se que esto es por que tengo que habilitar la casilla de not nul en Mysql pero también tengo una imagen y esta no se quiere habilitar esta casilla, me imagino que es por el tipo de dato (MEDIUMBLOB).
¿Será que existe alguna manera de solucionar esto? en mi BD tengo una sola tabla donde se encuentra el campo de la imagen y los datos.
De verdad soy una novata con respecto a esto.
Espero me puedan ayudar.

A ver, dices que cuando realizas una consulta y un dato no se encuentra en la base de datos (en la tabla, realmente) la aplicación te arroja un error.
Bueno, si es esto, ya lo hemos contestado anteriormente, y basta con comparar el valor de la propiedad EOF de tu recordset, después de haber realizado tu consulta:

' Haces tu consulta y luego comparas el valor de EOF:
If Not rs.EOF Then ' obviamente "rs" es tu recordset
' Aquí pones lo que tenga que hacer tu programa cuando localiza el registro
End If

¡Creo que no me entendiste!, ¡no me explique bien!

La propiedad EOF la tengo en mi aplicación, me funciona muy bien...

Me explico mejor:

Supongamos que yo tengo en mi tabla X los campos: cedula, nombre, apellido, foto.

En los cuales tengo 1234, Marie, Free, "PERO NO TENGO LA FOTO"
Cuando realizo la consulta mediante la aplicación me arroja el error. Por no tener la foto.

Cuando se trabaja con varchar, integer, entre otros, tengo entendido que para que no de este tipo de error se coloca en la tabla de mysql not nul en cada uno de los campos, esto es más que todo para poder dejar los campos vacíos al momento de guardar alguna información o dato mediante la aplicación. Si no lo coloco Not null tengo llenar todos los campo obligatoriamente. Eso sucede con ese tipo de variables. Ahora lo que no se es como hacerlo con un campo de tipo BLOB. Porque intente hacer lo mismo pero me da error cuando modifico la tabla de MySql.

¿Me entiendes?

A lo mejor esto no le compete a este foro, porque el problema es mas que todo de Mysql, pero si saben mas o menos como ayudarme se lo agradezco.

Gracias por su respuesta.

¡Sí, sí te entiendo!
Lo mejor para tu caso es que uses una rutina de detección de errores (On Local Error Goto), para que si el campo no tiene el contenido adecuado pues no se queje el programa

Ok., Gracias Sr. Quique. intentaré hacerlo asi!
¡Muchas Gracias por su ayuda!

Marie, la mejor forma de poderte ayudar, sin estar suponiendo es que pongas el codigo que usas. asi podre saber cual es el problema.

Ok, este es mi codigo! con lo que me dijeron anteriormente no me funciona muy bien ya que cuando realizo cualquier busqueda me sale simpre el mensaje de error que arroja esa propiedad. espero me puedan ayudar.
De ante mano muchas gracias!

Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Dim mystream As ADODB.Stream
Set mystream = New ADODB.Stream
mystream.Type = adTypeBinary
conn.CursorLocation = adUseClient
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=pozos; UID=root; PWD=1234; OPTION= & 1 + 2 + 8 + 32 + 2048 + 16384"
conn.Open
rs.Open "SELECT * FROM datos WHERE pozo LIKE '" + Text47.Text + "'", conn


If Not rs.EOF Then ' Si no es EOF indica que sí hay registros.

Form3.Text1.Text = rs.Fields!pozo
Form3.Text2.Text = rs.Fields!estacion
Form3.Text3.Text = rs.Fields!ub
Form3.Text4.Text = rs.Fields!marca
Form3.Text5.Text = rs.Fields!modelo
Form3.Text6.Text = rs.Fields!fija
Form3.Text7.Text = rs.Fields!portatil
Form3.Text8.Text = rs.Fields!tipocorrea
Form3.Text9.Text = rs.Fields!protcorrea
Form3.Text10.Text = rs.Fields!stroker
Form3.Text11.Text = rs.Fields!celler
Form3.Text12.Text = rs.Fields!palanca
Form3.Text13.Text = rs.Fields!faja
Form3.Text14.Text = rs.Fields!bt
Form3.Text15.Text = rs.Fields!guaya
Form3.Text16.Text = rs.Fields!carrera
Form3.Text17.Text = rs.Fields!pintura
Form3.Text18.Text = rs.Fields!modelos
Form3.Text19.Text = rs.Fields!empaques
Form3.Text20.Text = rs.Fields!silla
Form3.Text21.Text = rs.Fields!cruceta
Form3.Text22.Text = rs.Fields!pines
Form3.Text23.Text = rs.Fields!marcame
Form3.Text24.Text = rs.Fields!serialme
Form3.Text25.Text = rs.Fields!potenciame
Form3.Text26.Text = rs.Fields!diametroeje
Form3.Text27.Text = rs.Fields!fijame
Form3.Text28.Text = rs.Fields!busingme
Form3.Text29.Text = rs.Fields!interno
Form3.Text30.Text = rs.Fields!externo
Form3.Text31.Text = rs.Fields!marcarc
Form3.Text32.Text = rs.Fields!serialrc
Form3.Text33.Text = rs.Fields!observacionrc
Form3.Text34.Text = rs.Fields!marcapc
Form3.Text35.Text = rs.Fields!serialpc
Form3.Text36.Text = rs.Fields!potenciapc
Form3.Text37.Text = rs.Fields!variadorpc
Form3.Text38.Text = rs.Fields!fechapc
Form3.Text39.Text = rs.Fields!observacionpc

'Aqui es donde muestro la imagen
mystream.Open
mystream.Write rs!fotopozo
mystream.SaveToFile "c:LaImagen.jpg", adSaveCreateOverWrite
mystream.Close
rs.Close
Set Image1.Picture = LoadPicture("c:LaImagen.jpg")
Kill "c:LaImagen.jpg"

Form3.Text47.Text = ""
Form3.Text47.SetFocus


Else
If Text47.Text = "" Then
MsgBox "Campo Vacio Introduzca el número del pozo"
Text47.SetFocus

Else

MsgBox "No se localizó el registro en la base de datos"

Form3.Text47.Text = ""
Form3.Text47.SetFocus

End If
End If


End Sub

que raro, yo estoy en la misma situación que tu y cuando el campo que debe contener la foto no tiene una imagen valida pues controlo el error usando on goto y me funciona de perlas
no se cual sea tu problema pero supongo que no has de haber sabido implementar eso, lo mas probable

proba reemplazando c:LaImagen.jpg por c:LaImagen.jpg

Yo leo esto:

"cuando realizo una consulta y un dato no se encuentra en la base de datos la aplicación me arroja un error"

y eso se entiende como que no existe el registro. Tal vez debiste escribir que uno de los campos no tiene el contenido deseado, o algo así.
Y así es, a los campos BLOB no se les puede habilitar la casilla Not Null, pero si puedes controlar el error en tu programa al tratar de recuperar el dato, como te lo están diciendo.