[elgokr]

وعليكم السلام ورحمة الله وبركاته

اهلاً بك اخى كريم جودي

حتى تقوم بتجنب ذلك

كل ما عليك استبدال كود الزر كاملاً بهذا الكود

كود :

       Dim row As String()
       ofd.Filter = "Excel 2007|*.xlsx|Excel 2003|*.xls"
       If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
           grd.DataSource = Nothing
           'grd.Columns.Clear()
           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;")
           Dim dt As New DataTable
           Dim da As New OleDbDataAdapter("SELECT * FROM [Sheet1$]", conn)
           da.Fill(dt)
           'grd.DataSource = dt
           For ii As Integer = 0 To dt.Rows.Count - 2
               row = New String() {dt(ii)(0).ToString(), dt(ii)(1).ToString()}
               grd.Rows.Add(row)
           Next
       Else
           Exit Sub
       End If

وبكده تكون حليت المشكلة كاملاً

تحياتى لك

وتمنياتى لك التوفيق