Code:
Private Sub DataCombo1_Click(Area as integer)
'Makes sure the click is in the dropdown box and there is something selected
If Area=2 And DataCombo1.text<>"" then
'Assuming the name of the ADO object is ADO and the field used to Identify a record is UsrName
ADO.Filter="UsrName='" & DataCombo1.text & "'"
'This filters through the recordset and pulls out any records that match the criteria in the filter
'This will work for search for a string if it is a number thenuse something like this instead
ADO.Filter="UsrID=" & CInt(DataCombo1.text)
End if
End Sub