VB.NET实现增量下载DB表格到SHP转换

      DsSet  为一个标签，用于存放路径  
      TSPB1  为一个进度条    
      ToolInstruc 为一个标签，用于显示数字进度
      ComboBox1 选择字段

'*******************以下为按钮代码****************************************************

        Dim xFina As String
        xFina = "No Set"
        If Microsoft.VisualBasic.Left(Microsoft.VisualBasic.Right(DsSet.Text, 4), 1) = "." Then
            xFina = Microsoft.VisualBasic.Right(DsSet.Text, 4)
        End If
        If xFina <> ".shp" Then
            MsgBox("请在 设置数据源 里选择 SHP！", MsgBoxStyle.Exclamation, "提示")
            Exit Sub
        End If
        ToolInstruc.Text = "Data Reading.."
        Dim DataSPath As String
        DataSPath = Microsoft.VisualBasic.Left(Microsoft.VisualBasic.Right(DsSet.Text, Len(DsSet.Text) - 6), Len(Microsoft.VisualBasic.Right(DsSet.Text, Len(DsSet.Text) - 6)) - 3) & "dbf"
        Dim ExlApp = CreateObject("Excel.Application")
        Dim xlbook = ExlApp.Workbooks
        Dim xlbk = ExlApp.workbooks.Open(DataSPath)
        ToolInstruc.Text = "Data Readed.."
        Dim ActWorkbkPath As String
        ActWorkbkPath = ExlApp.activeWorkbook.path & "\"
        xlbk.worksheets.add(after:=xlbk.sheets(1))
        Dim St1 = xlbk.worksheets(1)
        Dim St2 = xlbk.worksheets(2)
        St2.cells(1, 1).value = "图斑预编号"
        St1.select()