Dim connectionStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
  "Source=c:\;Extended Properties=""text;HDR=YES;FMT=Delimited"""
 
        Dim dataSet As New DataSet
        Dim connection As New OleDb.OleDbConnection(connectionStr)
        Dim dataAdapter As New OleDb.OleDbDataAdapter("select * from" & _
          "[table.csv]", connection)
 
        dataAdapter.Fill(dataSet)
 
        With DataGrid1
            .DataSource = dataSet.Tables(0)
            .ReadOnly = True
            .Refresh()
        End With
 
        connection.Close()