AVISAR DE O CLIENTE E DUPLICADO

Private Sub TxtNome_Change()
    Private Sub txtNome_LostFocus()
    If Rs.State = 1 Then Rs.Close
    [ô]Neste caso, vamos usar [Ô]*[Ô] para pegar todos os campos ou citar o nome dos campos no select
   [ô]Se você não for usar todos os campos da tabela, liste os nomes para não carregar campos desnecessários:
   [ô]Sql=[Ô]Select Codigo, Nome,Endereco,Cidade,Etc From CadPaciente...[Ô]
    Sql = [Ô]Select * From CadPaciente Where Nome =[ô][Ô] & TxtNome.Text & [Ô][ô][Ô]
    Rs.Open Sql, CnSql, adOpenKeyset, adLockPessimistic
    If Rs.RecordCount > 0 Then
        MsgBox [Ô]Já Existe um Cliente com esse Nome Cadastrado [Ô], vbExclamation, [Ô]  Sisnews Informações[Ô]
    [ô]TxtNome.Text = [Ô][Ô]
    TxtNome.SetFocus
    [ô]Coloque aqui o código para carregar os campos
    [ô]TxtCodigo.Text=Rs(0) ou TxtCodigo.Text=Rs([Ô]Codigo[Ô])
    [ô]TxtEndereco.Text=RS([Ô]endereco[Ô])
    [ô]TxtCidade.Text=RS([Ô]Cidade[Ô])
    End If
    Rs.Close
End Sub