IMPORTAR DADOS DE ARQUIVO TEXTO PARA DATA GRID

RATOZNSP 29/06/2012 18:54:07
#405229

Boas, estou treinando como ler, gravar, etc em arquivos textos e quando tenho que jogar as informações para um DATAGRID, simplesmente ele não mostra nada. A SUB LeArquivo esta sendo chamado na Sub LOAD do FORM.

O que posso estar fazendo de errado (Utilizo VS2010) ????

Obrigado.

Segue o código:

Option explicit
Imports System.IO

Private Sub LeArquivo()

[ô] Layout arquivo:
[ô] Para separar os campos utilizo o caracter [Ô];[Ô] (ponto e vírgula)
[ô] Nome - 30 posições
[ô] Fones Residencial e Celular - 12 posições
[ô] Datas Nascimento e Cadastro - 10 posições
[ô] Referência - 10 posições
[ô] Sexo - 1 Posição
[ô] E-Mail - 40 posições

Dim vsrdLeitor As StreamReader
Dim vstrContatos As String = [Ô]D:\Projetos\TreinamentosTI\Contatos.txt[Ô]
Dim vstrLinha As String
Dim vnumCont As Integer = 0 [ô] Contador
[ô]
If Not My.Computer.FileSystem.FileExists(vstrContatos) Then
If MessageBox.Show([Ô]Arquivo: CONTATOS.TXT não existe !!![Ô] & vbCrLf _
& [Ô]Deseja que o arquivo seja criado?[Ô], [Ô]Atenção[Ô], MessageBoxButtons.YesNo, _
MessageBoxIcon.Question) Then
My.Computer.FileSystem.OpenTextFileWriter(vstrContatos, True)
Else
Close()
End If
Else
vsrdLeitor = My.Computer.FileSystem.OpenTextFileReader(vstrContatos)
While Not vsrdLeitor.EndOfStream
vstrLinha = vsrdLeitor.ReadLine()
Dim vstrNome As String = vstrLinha.Substring(0, 30)
Dim vstrFoneRes As String = vstrLinha.Substring(31, 12)
Dim vstrFoneCel As String = vstrLinha.Substring(44, 12)
Dim vstrDtNasc As String = vstrLinha.Substring(57, 10)
Dim vstrDtCad As String = vstrLinha.Substring(68, 10)
Dim vstrRef As String = vstrLinha.Substring(79, 10)
Dim vstrSexo As String = vstrLinha.Substring(90, 1)
Dim vstrEMail As String = vstrLinha.Substring(92, 40)
[ô]
[ô] Carrega as variaveis no DataGrid e adiciona no contador
vnumCont = dgvContatos.Rows.Add(vstrNome, vstrFoneRes, vstrRef)

End While
End If

End Sub