Italian Filtro LIKE ed evento TextChanged per una ricerca

Sub button4_click
    listapaz.Clear
    Dim Query As String
    Dim ResultSet1 As ResultSet
    Query = "SELECT * FROM patienti WHERE nome LIKE '%?%'"
    ResultSet1 =SQL1.ExecQuery2(Query, Array As String (EditRicerca.Text))
    Do While ResultSet1.NextRow
'Proseguo con il codice di visualizzazione che è identico a quallo che mostra tutti i record

Query = "SELECT * FROM patienti WHERE nome LIKE ?"

    ResultSet1 =SQL1.ExecQuery2(Query, Array As String ("%"&EditRicerca.Text&"%"))

Private Sub EditRicerca_TextChanged (Old As String, New As String)
    If New.Length > 2 Then ' considera un minimo di caratteri, non ci saranno nomi così corti, no?!
        Filtra(New)
    End If
End Sub

Private Sub Filtra(NomeParziale As String)
    listapaz.Clear
    Dim Query As String
    Dim ResultSet1 As ResultSet
    Query = "SELECT * FROM patienti WHERE nome LIKE '%?%'"
    ResultSet1 = SQL1.ExecQuery2(Query, Array As String (NomeParziale))
    Do While ResultSet1.NextRow
        Log("trovati")
        'Proseguo con il codice di visualizzazione che è identico a quallo che mostra tutti i re
    Loop
End Sub

Private Sub Filtra(NomeParziale As String)
    listapaz.Clear
    Dim Query As String
    Dim ResultSet1 As ResultSet
    Query = "SELECT * FROM patienti WHERE nome LIKE ?"
    ResultSet1 = SQL1.ExecQuery2(Query, Array As String ("%" & NomeParziale & "%"))

    Do While ResultSet1.NextRow