Sub bildload()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim mstream As ADODB.Stream
Set cn = New ADODB.Connection
cn.Open "User ID=x1;Password=x2;Provider=msdaora;Data Source=x.x.de;"
Set rs = New ADODB.Recordset
With rs
.Source = "Select daten from blobspeicher where bildnummer between 298 and 300"
End With
rs.Open "Select daten from blobspeicher where bildnummer between 298 and 300", cn, adOpenKeyset, adLockOptimistic
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.Write rs.Fields("").Value
mstream.SaveToFile "C:\Users\x\Desktop\testbildablage\bildnummer.jpg", adSaveCreateOverWrite
rs.Close
cn.Close
End Sub