求vb6.0导入记事本文件到vsflexgrid制作的报表

Dim LJWJM As String

Private Sub Command1_Click()
CommonDialog1.Filter = "txt文件（.txt)|*.txt"
CommonDialog1.ShowOpen
LJWJM = CommonDialog1.FileName
If LJWJM <> "" Then
Command2.Enabled = True
Command1.Enabled = False
End If
End Sub

Private Sub Command2_Click()
Dim X(1 To 5) As String, N As Integer, I As Integer
Open LJWJM For Input As #1
Do While Not EOF(1)
N = N + 1
Input #1, X(N)
Loop
Close #1
MSFlexGrid1.Clear
MSFlexGrid1.Visible = True
With MSFlexGrid1
    .Cols = 6
    .Rows = 2
.TextMatrix(0, 0) = "A"
.TextMatrix(0, 1) = "B"
.TextMatrix(0, 2) = "C"
.TextMatrix(0, 3) = "D"
.TextMatrix(0, 4) = "E"
.TextMatrix(0, 5) = "F"
For I = 1 To 5
.TextMatrix(1, 0) = 1
.TextMatrix(1, I) = X(I)
Next I
End With
End Sub