奇怪的bug解决思路

奇怪的bug

Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" + strFilePath + "';Extended Properties='Excel 8.0;HDR=NO;IMEX=1;'"

                Dim oleDbConnection As OleDbConnection = New OleDbConnection(sConnectionString)

                oleDbConnection.Open()


                Dim dt As DataTable = oleDbConnection.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)

                Dim ds As DataSet = New DataSet()



                For i = 0 To dt.Rows.Count - 1 Step 1

                    '/////get sheetName

                    Dim tableName As String = dt.Rows(i)(2).ToString().Trim()

                    tableName = "[" & tableName.Replace(" ' ", " ") & "]"

                    System.Console.WriteLine("get sheetName==" & tableName)

                    '////sql

                    Dim query As String = "select * from " & [tableName]


                    Dim oleAdapter As OleDbDataAdapter = New OleDbDataAdapter(query, sConnectionString)

                    Dim tbContainer As New DataTable()

                    oleAdapter.Fill(tbContainer)

                    ds.Tables.Add(tbContainer)

                Next i

图一：

图二：

图三：


这个是用oleDb从Excel读取数据到dataset里面去，在Excel里面的sheet数量为少量（如图1）的时候，该代码是正确的，但是sheet数量多（如图2）的时候，报错（如图3）
谁能帮看看这个问题怎么解决吗？妹子多谢啦

------解决方案--------------------
不会VB，友情帮顶
------解决方案--------------------
我是过来接分的
------解决方案--------------------
SUB&Print_Titles这个Sheet里数据有问题