Получение ошибки при двойном щелчке данных в списке

Question

Я новичок в VBA. Недавно я создал "Форму поиска". Данные поиска имеют 21 столбец, которые будут отображаться в «окне списка поиска». К сожалению, он может отображать только до 9 столбцов и будет возвращать ошибку для 10 и более данных. Ваше руководство очень ценится. Ниже мой код:

      Private Sub dtlist_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

    CDSv1.dptname.Text = CDSv1.dtlist.Column(1)
    CDSv1.dptadd.Text = CDSv1.dtlist.Column(2)
    CDSv1.divcom.Text = CDSv1.dtlist.Column(3)
    CDSv1.ctcname.Text = CDSv1.dtlist.Column(4)
    CDSv1.ctcno.Text = CDSv1.dtlist.Column(5)
    CDSv1.nid.Text = CDSv1.dtlist.Column(6)
    CDSv1.serno.Text = CDSv1.dtlist.Column(7)
    CDSv1.ipinfo.Text = CDSv1.dtlist.Column(8)
    CDSv1.snet.Text = CDSv1.dtlist.Column(9)
    CDSv1.gateway.Text = CDSv1.dtlist.Column(10) '<---- The error starts here.
    CDSv1.vlinfo.Text = CDSv1.dtlist.Column(11)
    CDSv1.netcatcom.Text = CDSv1.dtlist.Column(12)
    CDSv1.netsubcatcom.Text = CDSv1.dtlist.Column(13)
    CDSv1.ispcom.Text = CDSv1.dtlist.Column(14)
    CDSv1.snscom.Text = CDSv1.dtlist.Column(15)
    CDSv1.cirt.Text = CDSv1.dtlist.Column(16)
    CDSv1.bdwh.Text = CDSv1.dtlist.Column(17)
    CDSv1.statcom.Text = CDSv1.dtlist.Column(18)
    CDSv1.remf.Text = CDSv1.dtlist.Column(20)
        
End Sub