'### BILD ANZEIGEN #####
 
Dim oPIC As ADODB.Stream
Set oPIC = New ADODB.Stream
 
oPIC.Type = adTypeBinary
 
SQL="SELECT * FROM datenbank WHERE......."
rs.open sql,condb
	oPIC.Open
        oPIC.Write rs!pic
        oPIC.SaveToFile App.Path & "\tmp.jpg"
        Image1.Picture = LoadPicture(App.Path & "\tmp.jpg")
        Kill App.Path & "\tmp.jpg"
rs.close
set oPIC=NOTHING
 
 
 
'#### BILD VON FESTPLATTE SPEICHERN #######
Dim oPIC As ADODB.Stream
Set oPIC = New ADODB.Stream
 
oPIC.Type = adTypeBinary
 
oPIC.Open
oPIC.LoadFromFile c:\tmp\bild.jpg
 
 
SQL = "SELECT * FROM datenbank WHERE id='uniqueID'"
rs.CursorLocation = adUseClient
rs.Open SQL, conDB, adOpenKeyset, adLockPessimistic
    rs!pic = oPIC.Read
    rs.Update
rs.Close
SET oPIC=NOTHING