vb stream设立position不起作用

vb stream设置position不起作用
               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值

但是设置后不起作用

请各位高手帮忙看看？
[解决办法]
http://download.csdn.net/detail/veron_04/1483930