Import CSV into a new table -MS Access -

i trying import csv files located in folder access new tables , have been trying code

public const rootdir = "c:\users\deb670s\desktop\importcsv"  sub import() dim nr integer dim file acbrowsetoobjecttype file = dir$(rootdir & "*.csv") nr = 1 while file <> "" docmd.transfertext acimportdelim, "importspec", "newtablename-" & nr, rootdir & file, true, , msoencodingcentraleuropean file = dir$ nr = nr + 1 loop end sub 

but error saying variable not defined @ msoencodingcentraleuropean can tell me going wrong?

hummmm... think should try way.

http://www.accessmvp.com/kdsnell/excel_import.htm#impallwktsseptbl

just change xls csv.