Private Function GetDataFromCSV(ByVal strFilePath As String, ByVal strFileName As String) As DataTable
Dim strConn As String = "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=" + strFilePath + ";Extensions=asc,csv,tab,txt;"
Dim objODBCConnction As OdbcConnection
Dim objODBCDataAdapter As OdbcDataAdapter
Dim strSQL As String
Dim objDataTable As DataTable
Try
objODBCConnction = New OdbcConnection(strConn)
strSQL = "SELECT * FROM " + strFileName
objODBCDataAdapter = New OdbcDataAdapter(strSQL, objODBCConnction)
objDataTable = New DataTable
objODBCDataAdapter.Fill(objDataTable)
Return objDataTable
Catch ex As Exception
Throw ex
End Try
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Me.DataGrid1.DataSource = GetDataFromCSV("C:\", "1.csv")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub