заполнить другой лист в Excel с ошибкой сетки данных

Question

Необходимо заполнить таблицу значениями сетки данных.

If dsExcelPayments1.Tables(1).Rows.Count > 0 Then
    dgPaymentsToExcel1.Columns(11).HeaderText = "Grantee " & Application("lbl.uInstitution")
    dgPaymentsToExcel1.Columns(12).HeaderText = "Payee " & Application("lbl.uInstitution") & " ID"
    ' dgPaymentsToExcel.Columns(31).HeaderText = "Grantor " & Application("lbl.chapCode")
    dgPaymentsToExcel1.Columns(27).HeaderText = dsExcelPayments1.Tables(1).Rows(0)("GrantorAccountNumberLabel").ToString()
    dgPaymentsToExcel1.Columns(28).HeaderText = dsExcelPayments1.Tables(1).Rows(0)("GrantorAccountSubCode1Label").ToString()
    dgPaymentsToExcel1.Columns(29).HeaderText = dsExcelPayments1.Tables(1).Rows(0)("GrantorAccountSubCode2Label").ToString()
    dgPaymentsToExcel1.Columns(30).HeaderText = dsExcelPayments1.Tables(1).Rows(0)("GrantorAccountSubCode3Label").ToString()
    dgPaymentsToExcel1.Columns(31).HeaderText = dsExcelPayments1.Tables(1).Rows(0)("GrantorChapterRef").ToString()
    dgPaymentsToExcel1.DataSource = dsExcelPayments1
    dgPaymentsToExcel1.DataBind()
    dgPaymentsToExcel1.Visible = True
    dgPaymentsToExcel1.Caption = "<b>Payment(s) Due 2</b>"
    dgPaymentsToExcel1.HeaderStyle.BackColor = System.Drawing.Color.LightGray
    dgPaymentsToExcel1.CssClass = "grid-Table"
    Session("ReportToExcel") = dgPaymentsToExcel1
    Session("ExcelFileName") = "DuePayments Delinquent"
    Response.Redirect("~/Reports/ReportInExcel.aspx")
End If

Ошибка:

Не удается найти таблицу 1. Описание: во время выполнения текущей веб-страницы возникла необработанная исключительная ситуациязапрос. Пожалуйста, просмотрите трассировку стека для получения дополнительной информации об ошибке и о том, где она возникла в коде.

Сведения об исключении: System.IndexOutOfRangeException: Не удается найти таблицу 1.