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 *******

mystream.Write (rs.Fields("image").Value)
mystream.SaveToFile "c: emp.jpg", adSaveCreateOverWrite
el error se encuentra en esta linea
mystream.Write (rs.Fields("image").Value)
mystream.SaveToFile "c:\temp.jpg", adSaveCreateOverWrite
si muestra la ubicacion del archivo como c: sin el "\" muestra un error de acceso