I need help using a two column List Box in Access VBA

Hi Experts,
I am using the following code to add values to my 2 column listbox.  The problem is that, it only displays the first column and the values in the second column. I have my Row Source Type set to Value List and column count = 2.  I have included my code below.  What do I need to do to display both columns in my List Box?

Thanks in advance,
mrotor

Private Sub Form_Load()
    Dim adoRS As New ADODB.Recordset
    Dim adoCN As New ADODB.Connection
    Dim adoCmd As New ADODB.Command
    Dim strItems As String
    Dim strConn As String
    '******* Get the assocaite info from the db *******
    strConn = modConnTools.fL50_GetConnString("FAEAGLE")
    
    With adoCN
        .ConnectionString = strConn
        .Open
    End With
    
    With adoCmd
        .CommandText = "dbo.u_FASST_STTF_ListOfApps_ssp"
        .CommandType = adCmdStoredProc
        .ActiveConnection = adoCN
    End With

    'Set the cursor location to client
    With adoRS
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .LockType = adLockBatchOptimistic
        Set .Source = adoCmd
        .Open
    End With
    
    'Disconnect the recordset
    Set adoRS.ActiveConnection = Nothing
    If adoCN.State = adStateOpen Then adoCN.Close
    Me.lstAvailableValues = ""
    'Now load the new data
    strItems = ""
    If Not (adoRS.EOF And adoRS.BOF) Then
        Do Until adoRS.EOF
            strItems = strItems & adoRS(0) & ";" & adoRS(1) & ";"
            adoRS.MoveNext
        Loop
        
        Me.lstAvailableValues.RowSource = strItems
    End If
End Sub

Select allOpen in new window