مطلوب شرح كود بحث؟

بسم الله الرحمن الرحيم

كل التحية والشكر لأعضاء منتدانا العظيم

قرأت هذا الكود واستخدمه احد الاعضاء في البحث عن عميل وحاولت ان استخدمه فأريد من الاخوة الفاضل بشرح الكود:

 On Error GoTo Err_Cmnd1_Click
Dim SK1 As String, SK2 As String
If Me.et1 = 2 Then


'***************
If Nz(Me.TxtSearch, "") = "" Then Exit Sub
If Me.Etar2 = 1 Then SK1 = "[customer_name]" Else SK1 = "ForSearch([customer_name])"
If Me.Etar2 = 1 Then SK2 = "'" & Me.TxtSearch & "'" Else SK2 = "'" & ForSearch(Me.TxtSearch) & "'"


Me.sbfform.Form.FilterOn = True

If Me.Etar1 = 1 Then
Me.sbfform.Form.Filter = SK1 & " Like " & SK2 & " & '*'"
ElseIf Me.Etar1 = 2 Then
Me.sbfform.Form.Filter = SK1 & " Like " & "'*' & " & SK2 & " & '*'"
Else
Me.sbfform.Form.Filter = SK1 & " Like " & SK2
End If

وشكرا لكم