Re: Retrieving the lookup list name from Quality Center

This code works for me.  It will display the list name associated with the BG_USER_04 field.

Public Sub Get_Field_ListName()
    Dim cust As Customization
    Dim custFields As CustomizationFields
    Dim aCustField As CustomizationField
    Dim aCustList As CustomizationList
    Dim listName$

    Dim td As New TDConnection
    td.InitConnectionEx "http://xxxxx/qcbin"
    td.ConnectProjectEx "DOMAIN", "Project", "user", "pwd"

    Set cust = td.Customization
    Set custFields = cust.Fields
    Set aCustField = custFields.Field("Bug", "BG_USER_04")
    Set aCustList = aCustField.List

    listName = aCustList.Name
    MsgBox listName

    td.Logout
    td.DisconnectProject
    td.ReleaseConnection
    
End Sub