in questo esempio il file dati.txt deve avere nome e comgnome separati da tab.
codice:
Dim nom As String
Dim cog As String
Private Sub Command1_Click()
Open App.Path & "\dati.txt" For Input As #1
While Not EOF(1)
Line Input #1, lineoftext$
With Data1.Recordset
.MoveFirst
.AddNew
nom = Mid(lineoftext$, 1, 14)
cog = Mid(lineoftext$, 15, 30)
.Fields("nome") = nom
.Fields("cognome") = cog
.Update
.MoveNext
End With
Wend
Close #1
End Sub
Private Sub Form_Load()
Data1.DatabaseName = App.Path & ("\db.mdb")
Data1.RecordSource = "Tabella1"
End Sub