как экспортировать 2 datagridview на несколько листов vb.net

Question

я настраиваю программу экспорта с использованием vb.net и хочу экспортировать несколько dgv на несколько листов, что мне делать?здесь мой код, но только экспорт 1 dgv на лист1

    Try
        Dim DTB = New DataTable, RWS As Integer, CLS As Integer

        For CLS = 0 To DataGridView1.ColumnCount - 1 
            DTB.Columns.Add(DataGridView1.Columns(CLS).Name.ToString)
        Next

        Dim DRW As DataRow

        For RWS = 0 To DataGridView1.Rows.Count - 1 
            DRW = DTB.NewRow

            For CLS = 0 To DataGridView1.ColumnCount - 1
                Try
                    DRW(DTB.Columns(CLS).ColumnName.ToString) = DataGridView1.Rows(RWS).Cells(CLS).Value.ToString
                Catch ex As Exception

                End Try
            Next

            DTB.Rows.Add(DRW)
        Next

        DTB.AcceptChanges()
        Dim DST As New DataSet
        DST.Tables.Add(DTB)
        Dim FLE As String = "C:\Users\users\Documents\" & TextBox1.Text & ".xml"
        DTB.WriteXml(FLE)
        Dim EXL As String = "C:\Program Files\Microsoft Office\Office14\EXCEL.exe" 
        Shell(Chr(34) & EXL & Chr(34) & " " & Chr(34) & FLE & Chr(34), vbNormalFocus) 
    Catch ex As Exception
        MsgBox(ex.ToString)
    End Try

какие-либо предложения?