Solved,
Wrong in Connectionstring, the provider is to old an excel 2010.
provider=Microsoft.Jet.OLEDB.4.0;
it's must be
Provider=Microsoft.ACE.OLEDB.12.0
And it works with code :
Imports System.Data.OleDb
Public Class Form1
Dim conn As OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As New DataSet
Dim cmd As OleDbCommand
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error Resume Next
OpenFileDialog1.Filter = "(*.xls)|*.xls|(*.xlsx)|*.xlsx|All files (*.*)|*.*"
OpenFileDialog1.ShowDialog()
conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & "data source='" & OpenFileDialog1.FileName & "';Extended Properties=Excel 8.0;")
da = New OleDbDataAdapter("select * from [Sheet1$]", conn)
conn.Open()
ds.Clear()
da.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)
TextBox1.Text = OpenFileDialog1.FileName.ToString
conn.Close()
End Sub
Thanks CodeProject! :)