Dim conArbeitsdatenbank As New ADODB.Connection       ' DB-Verbindung
Dim recsetDbAntwort As New ADODB.Recordset            ' DB_Antwort
Dim l_sFile As New ADODB.Stream     'Dateistream um das Bild hochzuladen
 
With l_sFile
    .Type = adTypeBinary
    .Open
    .LoadFromFile ofdOpenFoto.FileName
  End With
 
 
Set recsetDbAntwort = New ADODB.Recordset
 
  recsetDbAntwort.Source = "Select id, bild From pers"
  recsetDbAntwort.CursorLocation = adUseServer
  recsetDbAntwort.CursorType = adOpenDynamic
  recsetDbAntwort.LockType = adLockOptimistic
 
  recsetDbAntwort.Open , conArbeitsdatenbank
 
While Not recsetDbAntwort.EOF And Not recsetDbAntwort.BOF And _
  recsetDbAntwort.Fields("id") <> l_lId
    recsetDbAntwort.MoveNext
Wend
 
  recsetDbAntwort.Fields("bild") = l_sFile.Read
 
  l_sFile.Close
 
  recsetDbAntwort.UpdateBatch

Recordset!Field.AppendChunk Stream.Read(Blocksize)