VB 读取TXT内文档

我用 MSFlexGrid1 读 TXT内的每行数据

TXT内的N条数据
第1条的 第1位到第3位 放在MSFlexGrid1 表内的第一行第一列内
第1条的 第4位到第6位 放在MSFlexGrid1 表内的第一行第一列内
...
然后是第2条第1位到第3位 放在 MSFlexGrid1 第2行.第1列内
..

依次类推..

TXT内 第1行的数据 显示在最前 最后一行的数据 显示在最后

具体应该如何实现

还有 请问 MSFlexGrid1 可否做成 每页显示 20条数据 设2个command
进行翻页功能

请各位VB达人写出代码 指点下小弟
写错啦..
第1条的 第4位到第6位 放在MSFlexGrid1 表内的第一行 **第二列**内

第一行第一列是指标题列.. 但可以设置成 普通列的

-----------------------------------------------------

0871love 的意思我明白了..为什么显示 实时错误'52'错误的文件名或号码?

Do While Not EOF(1) 这段有错误..

下面的代码不是很完善,不过对你我想应该有用
Page参数是控制当前页
PageSize是控制每页显示多少条记录的

Dim PageSize As Integer
Dim Page As Integer
Private Sub Command1_Click()
LoadRecord Page - 1, PageSize
End Sub

Private Sub Command2_Click()
LoadRecord Page + 1, PageSize
End Sub

Private Sub Form_Load()
PageSize = 5
Page = 1
LoadRecord Page, PageSize
End Sub

Sub LoadRecord(cPage As Integer, PSize As Integer)

If cPage < 1 Then cPage = 1
Page = cPage
Open "c:\tt2.txt" For Input As #1
i = 0
Do While Not EOF(1)
Line Input #1, s
If i >= (Page - 1) * PSize And i < Page * PSize Then
MSFlexGrid1.Rows = PageSize
MSFlexGrid1.TextMatrix(i - (Page - 1) * PSize, 0) = Mid(s, 1, 3)
MSFlexGrid1.TextMatrix(i - (Page - 1) * PSize, 1) = Mid(s, 4, 3)
End If