GridView.DataBind não remete-se para RowDataBound

Question

No access sem problemas no WebDeveloper2010 o Like não funciona:

No Acces retorna todos os nomes com inicial Luis com o código abaixo:

SELECT tbVETAAH.nomePac
 FROM tbVETAARH
 WHERE (((tbVETAARH.nomePac) Like "Luis*"));

No WebDeveloper 2010
Com o código abaixo esperava ao digitar Ana no txtPesquisaVet.Text retornasse com apenas as Anas mas retorna com todos os registros.
 
Alguém sugere alguma implentação?
 Dadapter123.SelectCommand = New OleDbCommand("SELECT A.codAARH,A.codSINA,A.nomePac & _
                                                              " FROM tbVETAARH A" & _
                                                              " WHERE A.nomePac LIKE '" & txtPesquisaVet.Text & "*'", New OleDbConnection(My.Settings.SIConecte))
        Dadapter123.Fill(DSet, "TBVet")

Answer 1

Complementando o código acima, pois como descrito o comando no acccess carrega apenas as pessoas que iniciam com o nome Luis e

no VS após digitar no txtPesquisaVet.text e clicar no botão pesquisar nada ocorre. Vejo que deveria estar indo para o RowDataBound, mas isto não ocorre.

No Break passar o mouse sobre DataSource ou DSet ou TBVet aparece a Tabela com todos os campos, mas nenhum registro.

Abaixo o click do botão e o RowDataBound:

Protected Sub btnPesquisarVet_Click(sender As Object, e As EventArgs) Handles btnPesquisarVet.Click
        gvwVet.DataSource = DSet.Tables("TBVet")
        gvwVet.DataBind()
        modoVet.Text = ""
        Label2.Text = ""
    End Sub

Protected Sub gvwVet_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles gvwVet.RowDataBound
        If e.Row.RowType = DataControlRowType.Header Then
            e.Row.Cells(1).Text = "ID"
            e.Row.Cells(2).Text = "Cód.SINAN"
            e.Row.Cells(3).Text = "Paciente"
         
        End If
        If e.Row.RowType = DataControlRowType.DataRow Then
            e.Row.Cells(0).Visible = True
            e.Row.Cells(1).Visible = True
            e.Row.Cells(2).Visible = True
            e.Row.Cells(3).Visible = True
                   
        End If
    End Sub