For Each rowItem In dtItems.Rows
                    If UCase(rowItem("CustGroupName").ToString.Trim) = "NO GROUP" Then
                        slItems.Add(rowItem("CustomerName").ToString.Trim & " - " & rowItem("SmiDestName").ToString & " - " & Trim(rowItem("ProdName").ToString), rowItem("SmiDestId").ToString & "$" & Trim(rowItem("ProdNo").ToString))
                    Else
                        slItems.Add(rowItem("CustGroupName").ToString.Trim & " - " & rowItem("SmiDestName").ToString & " - " & Trim(rowItem("ProdName").ToString), rowItem("SmiDestId").ToString & "$" & Trim(rowItem("ProdNo").ToString))
                    End If
                Next

                cboSites.DataSource = slItems
                cboSites.DataValueField = "Value"
                cboSites.DataTextField = "Key"
                cboSites.DataBind()