Help With Excel Importing

I have been working on some code to get excel data into a datagridview and also into my database.

What i have works to get the data but it does not display it in the view

It does show that there are records but will not show any data

It shows that there are 9 records that i can navigate but all it does it does is change the record number.

And it shows one blank row.



I have seen quite a few threads and examples but i can't quite put this one together.

Can someone help me get the data into the view?

Thanks



Dim opendlg As New OpenFileDialog

opendlg.Filter = "Excel Files (*.xls)|*.xls|All Files (*.*)|*.*"

If opendlg.ShowDialog() = Windows.Forms.DialogResult.OK Then

Dim pathname As String = opendlg.FileName

'MsgBox(pathname)



Dim connect As System.Data.OleDb.OleDbConnection

Dim adapter As System.Data.OleDb.OleDbDataAdapter

Dim dataset As New System.Data.DataSet()

connect = New System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;" & _

"data source=" & pathname & ";Extended Properties=Excel 8.0;")

'C: estoledb.xls

adapter = New System.Data.OleDb.OleDbDataAdapter("select * from [Sheet1$]", connect)

connect.Open()

adapter.Fill(dataset)



this is where the problem is

Me.Table1DataGridView.DataSource = dataset

adapter.Fill(Me.Database1DataSet.Table1)



connect.Close()

MsgBox(CType(dataset.Tables(0).Rows(0).Item(0), Object).ToString)



End If