Hi.

This is my code:

Code:
Private Sub abrir_Click()
    For j = 0 To 3
        a = App.Path & "\Basedados\" & (j + 1) & ".txt"
        Open a For Input As #(j + 1)
            While EOF(j + 1)
                Grid1.Col = 1
                Grid1.Row = i
                Input #(j + 1), f
                Grid1.Text = f
                Grid1.AddItem ""
            Wend
        Close #(j + 1)
    Next j
End Sub
But i can´t get no data from the saved files, my grid is blank, please help out.

numibesi