Dim mystream As ADODB.Stream
 Set mystream = New ADODB.Stream
        mystream.Type = adTypeBinary
        mystream.Open
        mystream.Write rs.Fields("Slika")
        mystream.SaveToFile App.Path & "\TMP.jpg", adSaveCreateOverWrite
        Image1 = LoadPicture(App.Path & "\TMP.jpg")