如何导入Excel工作表在vb.netdatagridview的数据

退房imgsrc={A}{A2}]
anjutlya

codeprelang="vb"spanclass="code-keyword"Dim/spanMyConnectionspanclass="code-keyword"As/spanSystem.Data.OleDb.OleDbConnectionspanclass="code-keyword"Dim/spanDtSetspanclass="code-keyword"As/spanSystem.Data.DataSetspanclass="code-keyword"Dim/spanMyCommandspanclass="code-keyword"As/spanSystem.Data.OleDb.OleDbDataAdapterMyConnection=spanclass="code-keyword"New/spanSystem.Data.OleDb.OleDbConnection(spanclass="code-string""/spanspanclass="code-string"provider=Microsoft.Jet.OLEDB.4.0;DataSource="/span+Txt_Path.Text.ToString()+spanclass="code-string""/spanspanclass="code-string";ExtendedProperties=Excel8.0;"/span)spanclass="code-comment"'/spanspanclass="code-comment"MyConnection=NewSystem.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;DataSource='c:\vb.net-informations.xls';ExtendedProperties=Excel8.0;")/spanMyCommand=spanclass="code-keyword"New/spanSystem.Data.OleDb.OleDbDataAdapter(spanclass="code-string""/spanspanclass="code-string"select*from[Sheet1$]"/span,MyConnection)MyCommand.TableMappings.Add(spanclass="code-string""/spanspanclass="code-string"Table"/span,spanclass="code-string""/spanspanclass="code-string"Net-informations.com"/span)DtSet=spanclass="code-keyword"New/spanSystem.Data.DataSetMyCommand.Fill(DtSet)dgv1.DataSource=DtSet.Tables(spanclass="code-digit"0/span)MyConnection.Close()/pre/code