I tried this but I get on error, file cant import ?
Function Makro1()
On Error GoTo Makro1_Err
DoCmd.TransferText acImportDelim, "", "taulukko", "F338H0EF.dat", False, ""
Makro1_Exit:
Exit Function
Makro1_Err:
MsgBox Error$
Resume Makro1_Exit
End Function