怎么以用文件流只读打开文件

Question

代码如下：
          Dim stmCon     As New Stream
          stmCon.Type = adTypeBinary
          stmCon.Open
          stmCon.LoadFromFile StoredFile
用以上代码打开一个文本文件，但是如过该文本文件已经被其他程序打开，这段代码就会报错：文件已经被打开，怎么用只读方式打开文本文件呢？
或者谁能给我一个详细介绍流文件的连接？谢！

Answer 1

Set Fso=WScript.CreateObject("Scripting.FileSystemObject")
Set fr=Fso.OpenTextFile("文件名",1)
s=fr.ReadAll
fr.Close

Answer 2

谢谢楼上回答，我初学，麻烦耐心些。
我只想用adodb stream方式（因为程序其他部分都是用的这种方式），以二进制方式打开文件（因为以后要写到sql的image类型字段中),再把文件内容写到sql数据库中。以这种方式怎么“只读”打开文件呢？