Заполните 14 различных текстовых полей на основе выбора списка пользователя

Question

Я очень новичок в VBA. Я пытаюсь заполнить 14 различных текстовых полей в форме каждый раз, когда пользователь выбирает строку в списке в той же форме. Тем не менее, я получаю сообщение об ошибке ниже каждый раз.

Ошибка! Не удалось получить свойство столбца, Неверный аргумент

Я провел некоторое исследование и вижу, что это может быть из-за того, что у меня более 10 столбцов и я вместо него использую массив, но я не уверен, как это реализовать , Вот мой код

Private Sub LoadData()
Dim strIndvdlID As String

With Me.lbAudit
    CurrentListIndex = .ListIndex

    Me.txtGUID.value = .Column(COL_GUID, .ListIndex)
    strIndvdlID = .Column(COL_iNDVDLID, .ListIndex)
    Me.txtLocationID.value = .Column(COL_LocationID, .ListIndex)
    Me.txtName.value = .Column(COL_Name, .ListIndex)
    Me.txtDataLead.value = .Column(COL_DataLead, .ListIndex)
    Me.txtHML.value = .Column(COL_HML, .ListIndex)
    Me.txtDirector.value = .Column(COL_Director, .ListIndex)
    Me.txtManager.value = .Column(COL_Manager, .ListIndex)
    Me.txtLead.value = .Column(COL_Lead, .ListIndex)
    Me.txtType.value = .Column(COL_Type, .ListIndex)
    Me.txtPlannedStartDate.value = .Column(COL_PlannedStartDate, .ListIndex)
    Me.txtPlannedEndDate.value = .Column(COL_PlannedEndDate, .ListIndex)
    Me.txtActualStartDate.value = .Column(COL_ActualStartDate, .ListIndex)
    Me.txtActualEndDate.value = .Column(COL_ActualEndDate, .ListIndex)     
End With
End Sub