Bueno, despues de darme unos buenos golpes lo resolvi. Coloco el codigo por si alguien mas esta vuelto loco con esto.
1º En el evento load del formulario
Código:
' Para la foto
Direc = App.Path & "\temp.jpg" 'Archivo temporal para guardar la foto
mystream.Type = adTypeBinary ' le decimos que nuestra imagen es de tipo binario
2º En el evento click del datagrid
Código:
With Rs!foto
Previsualizar
End With
y 3º Procedimiento previsualizar
Código:
On Local Error Resume Next ' por si surge alguno error que lo pase por alto
mystream.Open ' abrimos el stream
mystream.Write RsUsuarios!Foto_Usuario ' leemos la imagen
mystream.SaveToFile Direc, adSaveCreateOverWrite ' guardamos la imagen en unestro directorio temporal
mystream.Close ' cerramos el stream
pctFotoUsuario.Picture = LoadPicture(Direc) ' previsalizamos la imagen en nuestro picture control
