Treba mi pomoc oko "Like"operatora...pocetnik!?vb

vb
Private Sub Command3_Click()
Dim theName, theSearch As String
Data1.Recordset.MoveFirst
theName = Date
theSearch = "[rodjen] = '" & theName & "'"
Data1.Recordset.FindFirst theSearch
If Not Data1.Recordset.NoMatch Then
Data1.Recordset.Edit
Data1.Recordset.Update
End If

End Sub

Napisao sam ovaj kod po jednom primeru
ali postoji jedan "mali"problem.On se sastoji u tome sto ja
pokusavam da nadjem datum rodjenja,sad mi je potrebno da pronadjem nacin da ubacim"like"operator a to mi ne ide!
Sve sam pokusao,ali ne ide,ovako radi
ali dzaba....!
Pomozite ako mozete!