Consulta por ADODC

Pessoal estou com problemas na consulta.

/applications/core/interface/imageproxy/imageproxy.php?img=https://fbcdn-sphotos-f-a.akamaihd.net/hphotos-ak-ash3/534472_462621417114210_1346678210_n.jpg&key=21572f54d69bac02e001e10ddfc9b3f1775de887a1fbed6e1f0196b37bfe404b" alt="534472_462621417114210_1346678210_n.jpg" />

Tenho uma GridData conectada a uma ADODC juntamente com os campos, conforme mostra ai fiz uma consulta pelo nome de cidade Farroupilha. A consulta ocorreu normalmente, assim como se eu fizer consulta por nome ou CPF ocorre tudo certo como quero.

Porem se coloco um nome que não esta no banco de dados vem a MSG correta que coloquei de que dados não existem. Mas quando vou realizar uma nova consulta, mesmo eu digitando nos campo, vem a informação de como se eu não tivesse digitado nada no campo. Penso que isso ocorre por conta da pesquisa anterior não ter achado nada e dai ela não reconhece eu estar fazendo uma nova pesquisa.

Gostaria de saber se tem como da algum tipo de reset nas pesquisas que não acham informação para poder realizar uma nova consulta.

Caso seja problemas no código ai esta eles:

Public Sub AbilitaBotaoConsulta()
frmConsulta.cmdConsultar.Enabled = False
frmConsulta.cmdOrdem.Enabled = True
frmConsulta.cmdNova.Enabled = True
frmConsulta.cmdProximo.Enabled = True
frmConsulta.cmdAnderior.Enabled = True
frmConsulta.txtCliente.Enabled = False
frmConsulta.txtCidade.Enabled = False
frmConsulta.txtCPF.Enabled = False
End Sub

Public Sub ConsultaCPF()
Dim CPF2 As String
CPF2 = frmConsulta.txtCPF

 SQL = "Select * from CadClientes where CPF = '" & CPF2 & "'"
 frmConsulta.Dados.CommandType = adCmdText
 frmConsulta.Dados.RecordSource = SQL
 frmConsulta.Dados.Refresh
 Tabela.Open SQL, conexao, adOpenForwardOnly, adLockReadOnly
 If Not Tabela.EOF Then
 AbilitaBotaoConsulta
 Else
 MsgBox "Não existe cadastro com essa informação!", vbInformation, "Consulta"
 End If

End Sub

Public Sub ConsultaNome()
Dim Cliente2 As String
Cliente2 = frmConsulta.txtCliente

 SQL = "Select * from CadClientes where Cliente = '" & Cliente2 & "'"
 frmConsulta.Dados.CommandType = adCmdText
 frmConsulta.Dados.RecordSource = SQL
 frmConsulta.Dados.Refresh
 Tabela.Open SQL, conexao, adOpenForwardOnly, adLockReadOnly
 If Not Tabela.EOF Then
 AbilitaBotaoConsulta
 Else
 MsgBox "Não existe cadastro com essa informação!", vbInformation, "Consulta"
 End If

End Sub

Public Sub ConsultaCidade()
Dim Cidade2 As String
Cidade2 = frmConsulta.txtCidade

 SQL = "Select * from CadClientes where Cidade = '" & Cidade2 & "'"
 frmConsulta.Dados.CommandType = adCmdText
 frmConsulta.Dados.RecordSource = SQL
 frmConsulta.Dados.Refresh
 Tabela.Open SQL, conexao, adOpenForwardOnly, adLockReadOnly
 If Not Tabela.EOF Then
 AbilitaBotaoConsulta
 Else
 MsgBox "Não existe cadastro com essa informação!", vbInformation, "Consulta"
 End If

End Sub

Private Sub cmdConsultar_Click() 'Botão para realizar a consulta'
Abre_Conexao
If txtCPF.Text <> "" Then
ConsultaCPF
ElseIf txtCliente.Text <> "" Then
ConsultaNome
ElseIf txtCidade.Text <> "" Then
ConsultaCidade
Else
MsgBox "Informe os dados para a consulta!", vbInformation, "Consulta"
End If
End Sub

Private Sub cmdNova_Click() 'Botão para realizar uma nova consulta'
LimpaConsulta
txtCliente.Enabled = True
txtCidade.Enabled = True
txtCPF.Enabled = True
cmdConsultar.Enabled = True
cmdOrdem.Enabled = False
cmdNova.Enabled = False
cmdAnderior.Enabled = False
frmConsulta.cmdProximo.Enabled = False
End Sub