Private Sub CsvImport
Dim constr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
  "Source=D:\Folder\;Extended Properties=""text;HDR=Yes;FMT=Delimited"";"
 Dim SQL As String = "Select * From File.csv"
 Dim dt As New DataTable
 Dim conn As New OleDb.OleDbConnection(constr)
 Dim da As New OleDb.OleDbDataAdapter(SQL, conn)
 
 Try
 
  conn.Open()
  da.Fill(dt)
  conn.Close()
  DataGridView1.DataSource = dt
 
 Catch ex As Exception
 
 End Try
End Sub