visual basic recordset findfirst

Arkadaşlar herkese selam öncelikle.Çok Acil yardıma ihtiyacım var.Visual basicte yaptığım ve kayıtları tutan bir program var.Buna birde text ile birlikte arama butonu koydum  database içinde arama yapabilmek için.Arama için RECORDSET FİNDFIRST komutunu kullanacam ama bir türlü yapamadım.Bilen bir arkadaş varsa çok sevinirim.Yanlız en basitinden olsun.Çok acil lütfen!

İyi günler

On Error GoTo hata
With Data1.Recordset
If .RecordCount = 0 Then Exit Sub
sor = InputBox("Firma Adını Girin!", "BUL")
If sor = "" Then Exit Sub
.FindFirst "FirmaAdı like '" & sor & "'"
If .NoMatch Then
MsgBox "Kayıt Bulunamadı", vbExclamation
.MoveFirst
End If
End With
Exit Sub
hata:
MsgBox Err.Description
Err.Clear

Acces Dosyalarında Birde Bulunamayan Karakterler Vardır. Bunları Kaydettirmemelisiniz.

Function BulunmayanKarakter(Karakter As String) 'Bulunamayan Karakterler
Karakter = Replace(Karakter, "'", " ")
Karakter = Replace(Karakter, "#", "-")
BulunmayanKarakter = Karakter
End Function