Thanks Rhino, I got only the ideas.
Code:
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim mystream As ADODB.Stream
Set mystream = New ADODB.Stream
mystream.Type = adTypeBinary
conn.CursorLocation = adUseClient
Dim inptSearch As String
Set mystream = New ADODB.Stream
mystream.Type = adTypeBinary
inptSearch = fileview1.Text
Dim sql As String
sql = "Select * from Table WHERE file_name = '" & inptSearch & "'"
rs.Open sql, conn
xExt = Right(rs!File_name, 4)
mystream.Open
mystream.Write rs!File
mystream.SaveToFile App.Path & "\Temp" & xExt, adSaveCreateOverWrite
If mystream.Size > 0 Then
Image1.Visible = True
Image1.Picture = LoadPicture(App.Path & "\Temp" & xExt)
Kill App.Path & "\Temp" & xExt
Else
Image1.Visible = False
End If
mystream.Close
rs.Close