Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
strConn = strConn & strFilePath
strConn = strConn & ";Extended Properties=""text;HDR=Yes;FMT=Delimited"""
Dim objConn As OleDb.OleDbConnection
objConn = New OleDb.OleDbConnection(strConn)
Dim CSVDataSet As DataSet
CSVDataSet = New DataSet
Try
Dim strSql As String
strSql = "select * from " & strFileName
Dim ODBCCSVDataAdapter As OleDb.OleDbDataAdapter
ODBCCSVDataAdapter = New OleDb.OleDbDataAdapter(strSql, objConn)
ODBCCSVDataAdapter.Fill(CSVDataSet)
Return CSVDataSet
Catch ex As Exception
MessageBox.Show(ex.Message)
Exit Function
End Try