求助如下代码怎么让文本框显示TXT内容,OpenFileDialog1

            ' 利用StreamReader类读取文本内容
            Dim sr As New StreamReader(File.OpenRead(strCsvName.Trim), autoEncode)
            Try
                        Do While sr.EndOfStream = False
                            strTxtRow = sr.ReadLine()
                            DTtxt.Rows.Add(strTxtRow)
                            result += 1
                        Loop

                '//设置光标的位置到文本尾
                Me.RTxt1.Select(Me.RTxt1.TextLength, 0)
                '//滚动到控件光标处
                Me.RTxt1.ScrollToCaret()
            Catch ex As Exception
                MsgBox("失败！" & vbCrLf & "========详情========" & vbCrLf & ex.Message, vbOKOnly, "提示：")
            Finally
                sr.Close()
                sr.Dispose()
                Me.Cursor = Cursors.Default
            End Try