DataListSelect

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

DataListCtrl.Text = strTextToMatch
End Sub

Assumes:
Pass in what ever you set .ListField equal to so you
will always be sure of a match. Only selects an item
if there is a match to the string the user passes in