vb stream设置position不起作用

Question

               Set iStm = New ADODB.Stream
                
                If iStm.State = adStateClosed Then
                    iStm.Open
                End If
                
                iStm.Type = adTypeBinary
                iStm.LoadFromFile App.Path + "\13.bmp"
                
                iStm.Position = 0
                
                ds.fields(nodeRow.nodeName) = iStm.Read语句执行到iStm.Read这句就出现问题,读取值为空其实图片已经装载进去,但是由于装载后position位置移到最后一个字节
因此,导致iStm.Read为空,因此想设置Position值但是设置后不起作用请各位高手帮忙看看？

Answer 1

http://download.csdn.net/detail/veron_04/1483930