SQL Search Statement

Here is the code i'm using, and were it is located. Can someone help me out and tell me why this does not search and display the record it found .

Private Sub cmbCompName_Change()

Dim strSQL As String

'searches for the current record that is to be updated
strSQL = "Select * From tblCompany " & _
"Where cCompName Like '" & cmbCompName.Text & "'"
DatComp.RecordSource = strSQL
DatComp.Refresh

End Sub

Hi,
If the Combo is a drop down list, you'll have to use the Click event.