Herkese s.a

"Arama" işlemi icin şoyle bir kod yazdım:

Private Sub Command5_Click()
Dim a As Variant
Adodc1.Recordset.MoveFirst
a = InputBox("Lutfen aradığınız kişinin Adını ve Soyadını eksiksiz giriniz:", "Ara")
Adodc1.Recordset.Find "Adi_Soyadi='" + a + "'"
If a = "" Then
On Error GoTo hata
hata:
MsgBox "Veri girişi yapmalısınız!", vbExclamation, "Uyarı"
Adodc1.Recordset.MoveFirst
Else
If a Text2.Text Then
MsgBox "Aradığınız kişinin kaydı bulunamamıştır!", vbExclamation, "Sonuc"
Adodc1.Recordset.MoveFirst
End If
End If
End Sub

bu kodlara gore arama yaptırdığımda "a Text2.Text " yuzunden buyuk/kucuk harf ayrımı yapıyor. Yani ben onceden veri tabanına orneğin "Cihat TURGUT" diye kaydettiğim icin karşıma cıkan inputboxa da aynını yazmam gerekiyor! "cihat turgut" yazarak da arama yapmasını sağlayacak bir hale gelmesini istiyorum. yardımlarınız icin şimdiden teşekkurler!
__________________