Visual Basic

Public Function Import()<br />
<br />
Dim myPath As String = "c:\testing.csv"<br />
<br />
 Try<br />
<br />
            Dim objDataSet As System.Data.DataSet<br />
            Dim objAdapter As System.Data.OleDb.OleDbDataAdapter<br />
<br />
            strConnection = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source='" & myPath & " '; " & "Extended Properties=Excel 8.0;")<br />
            objAdapter = New System.Data.OleDb.OleDbDataAdapter("select * from [sheet1$]", strConnection)<br />
            objDataSet = New System.Data.DataSet<br />
            objAdapter.Fill(objDataSet)<br />
            DataGrid1.DataSource = objDataSet.Tables(0).DefaultView<br />
            strConnection.Close()<br />
<br />
        Catch ex As Exception<br />
<br />
            Dim er As String<br />
<br />
            strConnection.Close()<br />
<br />
        End Try