IMPEDIR DUPLICADO

[ô]Declaração 
Dim Cnn As ADODB.Connection
Dim Rst As ADODB.Recordset

Private Sub txtNome_LostFocus()
Dim sSQL As String
sSQL = [Ô]SELECT Nome FROM tblDados Where Nome =[ô][Ô] & txtNome.Text & [Ô][ô][Ô]
Set Rst = Cnn.Execute(sSQL)

If (Rst.EOF And Rst.BOF) then
[ô]GravaDados
    Else
MsgBox  [Ô]Usuario Já Cadastrado[Ô] 
            txtNome.SetFocus
End If

End Sub

Citação:

:
tenta ai

[ô]Declaração 
Dim Cnn As ADODB.Connection
Dim Rst As ADODB.Recordset

Private Sub txtNome_LostFocus()
Dim sSQL As String
sSQL = [Ô]SELECT Nome FROM tblDados Where Nome =[ô][Ô] & txtNome.Text & [Ô][ô][Ô]
Set Rst = Cnn.Execute(sSQL)

If (Rst.EOF And Rst.BOF) then
[ô]GravaDados
    Else
MsgBox  [Ô]Usuario Já Cadastrado[Ô] 
            txtNome.SetFocus
End If

End Sub

Citação:

:
:
tenta ai

[ô]Declaração 
Dim Cnn As ADODB.Connection
Dim Rst As ADODB.Recordset

Private Sub txtNome_LostFocus()
Dim sSQL As String
sSQL = [Ô]SELECT Nome FROM tblDados Where Nome =[ô][Ô] & txtNome.Text & [Ô][ô][Ô]
Set Rst = Cnn.Execute(sSQL)

If (Rst.EOF And Rst.BOF) then
[ô]GravaDados
    Else
MsgBox  [Ô]Usuario Já Cadastrado[Ô] 
            txtNome.SetFocus
End If

End Sub

Deu erro...

Segue o exemplo para teste.

Citação:

:
FANYSLZ,

Você disse:

[Ô]Deu erro[Ô]
[Ô]Segue exemplo para teste[Ô]
[Ô]Segue o banco de dados[Ô].

Sinceramente, não teve um tempinho para dizer [Ô]boa tarde[Ô] para os colegas que, tão gentilmente, têm te respondido e procurado auxiliar?

Citação:

:
FANYSLZ,

Desculpada. Sem problemas.

Nosso colega MARCELO-TREZE te enviou o projeto. Acredito muito que funcionará.

Boa sorte.