糟了，心急，求助

Question

我用VB编写了个系统，其中有个功能是：从Word文档中读取数据到Richtextbox中，可是读出的却是乱码，请问这个为何，我的代码如下：
RichTextBox1.FileName = App.Path & "\c++试卷\" & rim(rst.Fields(1)) & ".doc"
      Open RichTextBox1.FileName For Input As #1
      Do While Not EOF(1)
      s1 = Input(1, #1)
      RichTextBox1.Text = RichTextBox1.Text + s1
      Loop
      Close #1
用RichTextBox1.LoadFile RichTextBox1.FileName 也是读出乱码？
请问如何解决啊，Vb高手们？
本人在线等候，亟盼回复！
QQ：572221876

Answer 1

richtextbox控件只能读去两种类型格式的文件，一种是.txt；一种是.rtf；所以你导入进来的word是.doc格式的，就会出现乱码。