Visual Basic - vb6+mysql+campos+longblob

hola a todos tengo un problema quiero mostrar una imagen que se encuentra en un campo de tipo longblob en vb6.0 pero me sale un error aqui les dejo el codigo haber si me ayudan :

Private Sub Grid_Click()
On Error GoTo control
codigo = Val(Grid.Columns(0).Value)

If codigo > 0 Then
Dim sql As String
sql = "select * from files where file_id=" & Val(codigo) & ""

rs.Open sql, CONEXION, adOpenKeyset, adLockOptimistic

mystream.Type = adTypeBinary
mystream.Open

mystream.Write (rs.Fields("image").Value)
mystream.SaveToFile "c: emp.jpg", adSaveCreateOverWrite

Image1.Picture = LoadPicture("c: emp.jpg")

mystream.Close
rs.Close
End If
Exit Sub
control:
MsgBox "error : " & Err.Description & " - " & Err.Number
End Sub

Me arroja el Error : -2147217865

** espero de su ayuda bye *******