Visual Basic

Declare Function ExitWindows Lib "user32" Alias "ExitWindowsEx" ( _
    ByVal dwReserved As Long, ByVal uReturnCode As Long) As Long

Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                           "Data Source=C:\;" & _
                           "Extended Properties=""text;HDR=No;FMT=Delimited;IMEX=1"";"
Dim conn As New OleDbCommection(connString)
Dim comm As New OleDbCommand("Select * From TestData.csv", conn)
conn.Open()
Dim dr As OleDbDataReader = comm.ExecuteReader()
If dr.HasRows Then
    Do While dr.Read()
        Debug.WriteLine(String.Format("{0} - {1}", dr.GetValue(0).ToString(), dr.GetValue(1).ToString())
    Loop
End If
conn.Close()

<br />
 Private Sub btnUpload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpload.Click<br />
<br />
 Dim conn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _<br />
                                Session("pather") & _<br />
                        ";Extended Properties=""text;HDR=No;FMT=Delimited;IMEX=1"";"<br />
<br />
<br />
            If f = ".csv" Then<br />
                xl = "SELECT *  FROM " & filer<br />
                Fill(xl, conn)<br />
End If<br />
End Sub<br />
<br />
Private Sub Fill(ByVal xl As String, ByVal con As String)<br />
<br />
        Dim com As New OleDbDataAdapter(xl, con)<br />
        Dim ds As New DataSet<br />
<br />
        com.Fill(ds)<br />
        com.Dispose()       <br />
        <br />
        Me.DataGrid2.DataSource = ds<br />
	  Me.DataGrid2.DataBind()<br />
    End Sub<br />
<br />

Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                           "Data Source=C:\;" & _
                           "Extended Properties=""text;HDR=No;FMT=Delimited;IMEX=1"";"
Dim conn As New OleDbCommection(connString)
Dim da As New OleDbDataAdapter("Select * From TestData.csv", conn)
Dim ds As New DataSet
 
da.Fill(ds)
conn.Close()
conn.Dispose()
DataGridView1.DataSource = ds.Tables(0)