Hola a ambos,
A ver si os vale este ejemplo, en Access funciona, en Mysql no lo he podido comprobar, pero no creo que haya problemas.
Código:
Function GuardarFoto(ByVal sRutaFoto As String) As Byte()
Dim b() As Byte
Open sRutaFoto For Binary As #1
ReDim b(FileLen(sRutaFoto))
Get #1, , b
Close #1
GuardarFoto = b
End Function
Para llamar a la función: (se supone que tienes abierto un recordset "rs" y en modo de edición).
rs.Fields("NombreCampo").AppendChunk GuardarFoto("c:\RutaImagenes\MiArchivo.jpg")
El archivo imagen puede ser cualquier archivo de imagen admitido por vb (bmp, jpg, gif...)
Un saludo.