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 DataEnvironment is de and the command is SQL and field is Where_Name
      de.SQL.Filter="Where_Name='" & DataCombo1.text & "'"
      'This filters through the recordset and pulls out any records that match the criteria in the filter
End if
End Sub
Is that a little more clear? If not then feel free to tell me or email me.

[Edited by Edneeis on 06-01-2000 at 06:19 AM]