galera, adaptei esse codigo pra ler e salvar numa tabela a leitura d cada linha,,, so q nao ta salvando... alguem poderia me dizer ondi ta errado, ou qual seria a forma certo d se fazer isso?

 

=======================================================

arqTemp = Trim(Text16.Text)
Open arqTemp For Output As #100

While Not EOF(100)
    Line Input #100, TXT
   
     A = Mid(TXT, 1, 5)
     B = Mid(TXT, 6, 55)

    TabCliente.CursorLocation = adUseServer
    TabCliente.Open "Select * From CadCliente", BancoCliente, adOpenKeyset, adLockOptimistic, adCmdText
    TabCliente.AddNew

    TabCliente.Fields("cod") = A
    TabCliente.Fields("Nome") = B
    TabCliente.Close

Wend
Close 100

=============================================

 

grato pela atencao!!!!

Dê uma olhada e compare com seu código. Acho que estão faltando os comandos update e rst.movenext:

 

Public Sub Importar()
Dim Linha As String
Dim F As Long
Dim sTexto As String

F = FreeFile
FecharRst
Open ArquivoDe For Input As F
sSql = "SELECT * FROM tblImportacao"
rst.Open sSql, cnBd, adOpenKeyset, adLockOptimistic

 
Do While Not EOF(F)
 Line Input #F, Linha
    sTexto = Mid(Linha, 1, 94)
  rst.AddNew          'inclui novo registro
    rst!Campo1 = sTexto
rst.Update
Loop
Close #F
FecharRst
'MsgBox "Arquivo importado com sucesso!!", vbExclamation, "Mensagem!!"
End Sub