1. soru için aşağıdaki kodu dener misiniz?

Private Sub arama_Change()

Me.Filter = "[AD_SOYAD] like '*" & Me.arama.Text & "*'"

Me.FilterOn = True

arama.SelStart = arama.SelLength

End Sub