I am using the following code to import an Excel File. I need import a csv comma delimited. How how do I need to change this
.Title = "Select file for import"
.Filters.Add "XLS File", "*.xls"
.InitialFileName = INITIAL_FOLDER
If .Show = -1 Then FilePath = .SelectedItems(1)
Set fd = Nothing
docmd.TransferSpreadsheet , acSpreadsheetTypeExcel3, "Table1", FilePath, True