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