Nesta dica tem o q eu quis dizer...
vc acessa com o ADO desde q tenha delimitação...
Para jogar para o DataGrid vc usa:
Set DataGrid.DataSource = Rs
Agora se vc quer fazer abrindo o arquivo texto e passando linha a linha então vc pode usar o MSHFlexgrid ou o ListView (Componente Microsoft Windows Common Controls 6.0)...
Abrindo o arquivo:
Dim F As Long, Linha As String
Dim i as Long, L as Long
Dim codigo as String, nome as String
Dim endereco as String, telefone as String
Dim nascimento as String
F = FreeFile
Open "caminho_do_arquivo.txt" For Input As F 'abre o arquivo texto
Do While Not EOF(F)
Line Input #F, Linha
L = L + 1
Loop
Linha = ""
MSHFlexGrid1.Rows = L
Do While Not EOF(F)
Line Input #F, Linha 'lê uma linha do arquivo texto
'extrai a informação do arquivo texto usando a função MID
codigo = Mid(Linha, 1, 4)
nome = Mid(Linha, 5, 20)
endereco = Mid(Linha, 25, 23)
telefone = Mid(Linha, 48, 10)
nascimento = Mid(Linha, 58, 8)
MSHFlexGrid1.TextMatrix(i, 0) = codigo
MSHFlexGrid1.TextMatrix(i, 1) = nome
MSHFlexGrid1.TextMatrix(i, 2) = endereco
MSHFlexGrid1.TextMatrix(i, 3) = telefone
MSHFlexGrid1.TextMatrix(i, 4) = nascimento
Loop
No caso estou pegando o registro de acordo com o posicionamento do texto na linha. Depois passando para uma variável e passando para o grid logo em seqüência... poderia passar direto para o grid mas coloquei assim para ficar didático. Poderia usar o código para o ListView só q mudaria pouca coisa...
Bom, basicamente é isso ae.
qq dúvida é só postar.
at+
