That did it. I sware I tried before and could not get it working, oh well. Here is a snap shot of the code for anyone else who may be having the same problem:

findstring = "CompName = '"& Search.Text& "'"
rs.FindFirst findstring
If rs.NoMatch Then
MsgBox ("User does not exist")
Else
MsgBox ("User does exist!")
End If