请问能否解释一下这段代码的含义?因为许多写法在狐表的帮助中找不到。
If e.Sender.SelectedPage Is Nothing Then '规避空选
Exit Sub
End If
using DataSet1 As new System.Data.DataSet
Dim Connection As New System.Data.OleDb.OleDbConnection
Connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
+ Vars("Path") + ";Extended Properties='Excel 8.0;HDR=yes ;IMEX=2'"
Dim adapter As New System.Data.OleDb.OleDbDataAdapter("SELECT * FROM [" & Forms("窗口1").Controls("TabControl1").SelectedPage.name & "] ", Connection)
adapter.Fill(DataSet1)
Tables("窗口1_Table1").DataSource = DataSet1.Tables(0) '按实际修改表名
Connection.Close()
End using
<!--EndFragment-->