КАК ЗАГРУЗИТЬ ФАЙЛ В MSFlexGrid?

[Psyclark]

Народ, помогите найти ошибку в синтезе!!!
И если кто знает другой способ загрузки, пишите!!!
Private Sub Command1_Click()
Dim sData As String
Dim sSplit() As String
Dim nRow As Integer
Dim nI As Integer

Open "data.txt" For Input As #1
nRow = 1
Do While Not EOF(1)
Line Input #1, sData
sSplit = Split(sData, ",")
MSFlexGrid1.AddItem Str(nRow)
For nI = 0 To 3
MSFlexGrid1.Row = nRow + 1
MSFlexGrid1.Col = nI + 1
MSFlexGrid1.Text = sSplit(nI)
Next nI
nRow = nRow + 1
Loop
Close #1
End Sub

[Dzhon]

1. Опиши ошибку
2. Выполни пошагово и посмотри где что неверно.