Ddltitle.Items.Insert (0, "0") 'Adds record DDLTITLE.ITEMS.INSERT (1, "5%") DDLTITLE.ITEMS.INSERT (2, "10%") DDLTITLE.ITEMS.INSERT. 3, "15%") DDLTITE.Items.insert (4, "20%")
Dim TitleListItem As ListItem 'StrDDLTitle content For Each TitleListItem In DDLTitle.Items drop-down box to be displayed' through all of the options for dropdown If TitleListItem.Value = StrDDLTitle Then TitleListItem.Selected = True txtTitle.Text = TitleListItem.Text End If NEXT