DataListSelect

Private Sub SelectDLItem(DataListCtrl As DataList, strTextToMatch As String)
'Highlights the matching text:

DataListCtrl.Text = strTextToMatch
End Sub