[Resolvido] Consulta

Pessoal,

Estou querendo fazer um código que ele verifica se eu digitei no campo CPF, Cliente ou Cidade para fazer a consulta no banco de dados.

Tentei fazer mais ou menos assim.

Criei 3 funções. Para verificar em qual campo digitei.

Public Function ConsultaPorCPF() As Boolean
If frmConsulta.txtCPF = "" Then
ConsultaPorCPF = False
Else
ConsultaPorCPF = True
End If
End Function

Public Function Consulta---ome() As Boolean
If frmConsulta.txtCliente = "" Then
ConsultaPorCLiente = False
Else
ConsultaPorCLiente = True
End If
End Function

Public Function ConsultaPorCidade() As Boolean
If frmConsulta.txtCidade = "" Then
ConsultaPorCidade = False
Else
ConsultaPorCidade = True
End If
End Function

E o código para consultar foi esse:

Abre_Conexao
If ConsultaPorCPF = True Then

 SQL = "Select * from CadClientes where CPF = '" & txtCPF.Text & "'"
 Tabela.Open SQL, conexao, adOpenForwardOnly, adLockReadOnly
 If Not Tabela.EOF Then
 PreencheDadosConsulta
 cmdConsultar.Enabled = False
 cmdProximo.Enabled = True
 cmdAnterior.Enabled = True
 cmdOrdem.Enabled = True
 txtCPF.Enabled = False
 Else
 MsgBox "Cliente não Cadastrado!", vbInformation, "Consulta"
 End If
 Else
 If Consulta---ome = True Then
 SQL = "Select * from CadClientes where Cliente = '" & txtCliente.Text & "'"
 Tabela.Open SQL, conexao, adOpenForwardOnly, adLockReadOnly
 If Not Tabela.EOF Then
 PreencheDadosConsulta
 cmdConsultar.Enabled = False
 cmdProximo.Enabled = True
 cmdAnterior.Enabled = True
 cmdOrdem.Enabled = True
 txtCPF.Enabled = False
 Else
 MsgBox "Cliente não Cadastrado!", vbInformation, "Consulta"
 End If
 Else
 If ConsultaPorCidade = True Then
 SQL = "Select * from CadClientes where Cidade = '" & txtCidade.Text & "'"
 Tabela.Open SQL, conexao, adOpenForwardOnly, adLockReadOnly
 If Not Tabela.EOF Then
 PreencheDadosConsulta
 cmdConsultar.Enabled = False
 cmdProximo.Enabled = True
 cmdAnterior.Enabled = True
 cmdOrdem.Enabled = True
 txtCPF.Enabled = False
 Else
 MsgBox "Cliente não Cadastrado!", vbInformation, "Consulta"
 End If
 Else
 MsgBox "Informe os dados para a consulta!", vbInformation, "Consulta"
 End If
 End If
 End If

Só que quando eu digito o CPF funciona normal, mas quando eu faço a consulta pelo Cliente ou pela Cidade, não da certo cai direto na msgbox Informe os dados para a consulta.

Alguém sabe como fazer para essa estrutura funcionar?