VBRichTextBox实理自动保存

就是在VB里面做了一个工程，里面做了一个窗体，然后在窗体中做了一个控件RichTextBox，我的想法是，在运行软件后在RichTextBox里面打了一段文字，之后关掉这个工程，在去打开这个工程的时候，我前面打的那段文字还在RichTextBox里面。就是说RichTextBox会在程序中自动保存。或者是自动保存到ACCESS数据库中。。请教高手用VB代码怎么来实现？谢谢！！如果RichTextBox控件不行的话，用TextBox控件也行。

保存
bvc=RichTextBox

Open App.Path & "\1.txt" For Output As #1
Print #1, bvc
Close #1
打开
Open App.Path & "\1.txt" For Input As #1
Do While Not EOF(1)
Input #1, strData
RichTextBox = strData
Loop
Close #1

在Form的 Form_QueryUnload 下输入保存代码： RichTextBox1.SaveFile "D:\1.txt" 这样就会自动保存到 D:\1.txt 在Form的 Form_Load输入下面打开代码： dim strTmp as string RichTextBox1.Text="" open "D:\1.txt" for input as #1 While Not EOF(1) Line Input #1, strTmp RichTextBox1.Text = RichTextBox1.Text & strTmp & vbCrLf Wend close #1