'用流打开一个文件
    '然后保存流到数据库中,这是保存图片或比较大的数据时,常用的方法
    Dim strm As ADODB.Stream
    Dim rst As ADODB.Recordset
    Set strm = New ADODB.Stream
    Set rst = New ADODB.Recordset
    Dim content() As Byte
    ConnectDB
    strm.Type = adTypeBinary
    strm.Open
    rst.Open "select * from Table1 where field1=1", Cnn, adOpenStatic, adLockReadOnly
    if not rst.eof then
    strm.Write rst("fieldname").GetChunk(2000)    
    rst.Close
    strm.SaveToFile "f:\text.txt", adSaveCreateOverWrite    
    Set strm = Nothing
    Set rst = Nothing