CONSULTA EM MSHFLEXGRID

NILTON.VIANNA 06/10/2011 23:59:41
#386158

Pessoal

estou usando MSHFlexGrid[/b] para carregar uma tabela
rsPaciente.Open [Ô]Select Nome, CodCli from Cad_Paciente01 order by CodCli[Ô], CnSql, adOpenKeyset, adLockOptimistic
Set Grid.DataSource = rsPaciente [ô]Preenchendo Grid com Ado

para pesquisar

Private Sub txtPes_Change()
Dim SQL As String
SQL = [Ô]Select Nome, CodCli FROM Cad_Paciente01 WHERE Nome like [ô][Ô] & Trim$(txtPes.Text) & [Ô]%[ô] ORDER BY Nome[Ô]
Set rsPaciente = New ADODB.Recordset
rsPaciente.Open SQL, CnSql, adOpenDynamic, adLockOptimistic
Set Grid.DataSource = rsPaciente [ô]Preenchendo GridP com Ado
End If
Set rsPaciente = Nothing
End Sub

So quando faço a pesquisa no textebox ele faz a pesquisa normalmente
Dou um Grid_Click no MSHFlexGrid e carrega meu form
Porem se não se não tem o nome conforme digitado ele limpa o MSHFlexGrid
Quando troco o nome carrega de novo o MSHFlexGrid
Mais some o foco de MSHFlexGrid, não consigo mais a função Grid_Click
Ele congela o MSHFlexGrid,
Alguém poderia me ajudar
grato