Dim Conn As System.Data.Odbc.OdbcConnection,dt as datatable
Dim da As System.Data.Odbc.OdbcDataAdapter
Dim strConnstr,strImportfolder,strFilename as string

strImportFolder = "c:\importfile" '
this is the folder in which the file resides

strFileName = "csvimport.csv" 
'this is the csv file to be imported

strConnStr = "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=" + strImportFolder + ";"
Conn = New Odbc.OdbcConnection(strConnStr)

da = New System.data.Odbc.OdbcDataAdapter("select * from [" + strFileName + "]", conn)
da.Fill(dt)