Dim db As Database, Daten As Recordset
Set db = DBEngine.Workspaces(0).Databases(0)
Set rs = db.OpenRecordset("Daten")
 
Dim DateiName As String
Dim DateiNr As Integer
Dim Zeile As String
Dim strT() As String
DateiName = "c:\daten.txt"
DateiNr = FreeFile
 
Open DateiName For Input As DateiNr
        Do While Not EOF(DateiNr)
                 Line Input #DateiNr, Zeile
                 strT = Split(Zeile, " ")
                 rs.AddNew
                 rs("Datum") = strT(0)
                 rs("Uhrzeit") = strT(1)
                 rs.update
        Loop
Close DateiNr