Function BulkImport(Path As String)
Dim CSVFile As String
If Right(Path, 1) <> "\" Then Path = Path & "\"
CSVFile = Dir(Path & "*.csv")
Do While Len(CSVFile)
DoCmd.TransferText acImportDelim, , , Path & CSVFile
CSVFile = Dir
This supposes that all the csv files are in a directory given by Path. Search in help for the meaning of the different options you can use with the TransferText method.