' Load up some data
    Dim Sql
    Sql = "SELECT SERVICEID, 'Merge' MERGEACTION, SERVICENAME, SERVICETYPE FROM SERVICE WHERE SERVICEID IN (" & Records & ")"
    uxServiceList.SQL = Sql
    uxServiceList.KeyField = "SERVICEID"
    uxServiceList.Refresh

    Dim col
    With uxServiceList
        Dim rs
        Set rs = .Recordset
        Dim fld
        For Each fld In rs.Fields
            Set col = .Columns.Add(0)
            col.FieldName = fld.Name
            col.Caption = fld.Name
            If col.Caption = "MERGEACTION" Then
                col.Width = 50
                col.Caption = "Merge Action"
            End If
            If Right(LCase(fld.Name), 2) = "id" Then col.Visible = False
        Next
        .Refresh
    End With


    With uxServiceList
        Dim rs
        Set rs = .Recordset
        Dim PrimarySet
        PrimarySet = False
        rs.MoveFirst
        Do While Not rs.EOF
            If PrimarySet = False Then
                rs.Fields("MERGEACTION").Value = "Primary"
                PrimarySet = True
            End If
            rs.MoveNext
        Loop
        .Refresh
    End With