Dim sQuery As String = "SELECT id, autor, geaendert, content FROM Docdetails" & _
  "WHERE ID=1"
                Dim varFields As Collection
                Dim varValues As Collection
                varFields = New Collection
                varValues = New Collection
                varFields.Add("Autor")
                varFields.Add("geaendert")
                varValues.Add("Chris2")
                varFields.Add("25.08.2005 18:25:59")
 
                oDoc.SaveAs("C:\1.doc")
                oDoc.Close()
 
                sOut = New System.IO.FileStream("C:\1.doc", IO.FileMode.Open)
                Dim Data() As Byte = New [Byte](sOut.Length) {}
                sOut.Read(Data, 0, sOut.Length)
                oRes.Open(sQuery, oCon)
                oRes.Fields(3).Value = Data
                oRes.Update(varFields, varValues)
                oRes.Close()