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