Protected Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
        Dim nome As String = Me.TextBox_nome.Text.Trim

        Dim nomi As String() = nome.Split(New Char() {" "c}, StringSplitOptions.RemoveEmptyEntries)
        Dim pattern As String = ""

        'condizione AND per la ricerca
        For i As Integer = 0 To nomi.Length - 1
            pattern &= String.Format("(?=.*\b{0}\b)", nomi(i))
        Next

        Dim dt As DataTable = msole.GetDataTable(gl.StringaConnessioneRubrica, "select id_personale, cognome_nome, telefono, cellulare, indirizzo_posta from q_personale where 1=1 order by cognome_nome")

        If Not String.IsNullOrWhiteSpace(nome) Then
            Dim result As Integer() = dt.AsEnumerable().Select(Function(c) New With
                                {
                                    .id = CInt(c("id_personale")),
                                    .nome = CStr(c("cognome_nome"))
                                }
                            ).
                        Where(Function(c) Regex.IsMatch(c.nome, pattern, RegexOptions.IgnoreCase)).
                        OrderBy(Function(c) c.nome).
                        Select(Function(o) o.id).ToArray()


            Dim keys As String = String.Join(","c, result)

            If String.IsNullOrWhiteSpace(keys) Then
                dt.DefaultView.RowFilter = "1=0"
            Else
                dt.DefaultView.RowFilter = String.Format("id_personale in ({0})", keys)
            End If

        End If

        If dt.DefaultView.Count = 0 Then
            Me.Literal1.Text = "Nessun nome trovato"
        Else
            Me.Literal1.Text = l.getTableFromDataView(dt.DefaultView)
        End If


    End Sub