[asemshahen5]

كود :

       ofd.Filter = "excel2013| * .xlsx|excel2003| * .xls"
       If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
           Dim path As String = ofd.FileName
           Dim CONN As New OleDbConnection("PROVIDER=MICROSOFT.ACE.OLEDB.12.0;DATA SOURCE=" & path & ";EXTENDED PROPERTIES=""Excel 12.0;HDR=Yes"";")
           Dim dt As New DataTable
           Dim da As New OleDbDataAdapter("select * from [Sheet1$]", CONN)
           da.Fill(dt)
           DataGridView1.DataSource = dt
       End If

جرب هذا الكود