Visual Basic

If OpenFileDialog1.ShowDialog(Me) = DialogResult.OK Then<br />
            Dim fi As New FileInfo(OpenFileDialog1.FileName)<br />
            Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Text;Data Source=" & fi.DirectoryName<br />
            Dim objConn As New OleDbConnection(sConnectionString)<br />
            objConn.Open()<br />
            Dim objCmdSelect As New OleDbCommand("SELECT SupplierID, SupplierDebrand, RangeID, RangeDebrand, ItemID, ModelNumber, Description, cost, Usual, Sell, SKU FROM " & fi.Name, objConn)<br />
            Dim objAdapter1 As New OleDbDataAdapter<br />
            objAdapter1.SelectCommand = objCmdSelect<br />
            Dim objDataset1 As New DataSet<br />
            objAdapter1.Fill(objDataset1, "test")<br />
            DataGridView1.DataSource = objDataset1.Tables(0).DefaultView<br />
            objConn.Close()<br />
        End If