Dim rs As ADODB.Recordset
Dim db_ado As ADODB.Connection
Dim sFileName As String
Dim oStream As ADODB.Stream
Set oStream = New ADODB.Stream
Set db_ado = New ADODB.Connection
Set rs = New ADODB.Recordset
 
With db_ado
    .CursorLocation = adUseClient
    .Mode = adModeShareDenyNone
    .Provider = "Microsoft.Jet.OLEDB.4.0"
     .Properties("Data Source") = "K:\AB200607.mdb"
    .Properties("Jet OLEDB:Database Password") = ""
    .Open
End With
 
rs.CursorType = adOpenSnapshot
rs.LockType = adLockOptimistic
rs.Open "SELECT * from Briefe where [lfd-Nr]=1153", db_ado    ' , , , adCmdTable
 
sFileName = "C:\2\223.doc"
With oStream
      .Type = adTypeBinary
      Call .Open
      Call .Write(rs.Fields("OleBrief").Value)
      Call .SaveToFile(sFileName)
      Call .Close
End With