In the InteractiveChange event of the TextBox:

 old_near  = SET("NEAR")
 old_exact = SET("EXACT")
 SET NEAR ON
 SET EXACT OFF
 SEEK this.Value IN YourTable TAG TagofNames
 thisform.ListBox.Value = YourTable.Name
 SET NEAR  &old_near
 SET EXACT &old_exact

This will work If You are Index the tabe by names, if You don't You may use LOCATE ;o(((( or LOOKUP function.