Erro tela de login

[Guest --poulain --]

Boa Tarde,

Tenho o código abaixo no meu Form para Login:

Option Explicit
____________________________________________

Private Sub cmd_OK_Click()
Label4.Visible = False
          If txt_novosenha.Text <> txt_con.Text Then
                 Label4.Caption = "A senha e a confirmação não conferem."
                 Label4.Visible = True
          Exit Sub
          End If
           If RS!Usuario = txt_novouser.Text Then
                Label4.Caption = "Usuário já cadastrado."
                Label4.Visible = True
           Exit Sub
           End If
           If txt_novosenha.Text = "" Or txt_novouser.Text = "" Or txt_con.Text = "" Then
               Label4.Caption = "Todos os campos devem ser preenchidos"
               Label4.Visible = True
            Exit Sub
            End If

SQL = "INSERT INTO acesso (Usuario, Senha) Values ('" & txt_novouser.Text & "' , '" & txt_novosenha.Text & "' )"
Set RS = ExecutarRecordset(SQL, "S")
MsgBox "Usuário e Senha inseridos com Sucesso.", vbInformation, "Cadastro"
limpa
End Sub
____________________________________________


Private Sub Form_Load()
AbrirConexao ("C:\Paola\cadastro.mdb")
End Sub
____________________________________________

Sub limpa()
txt_novouser.Text = Empty
txt_novosenha.Text = Empty
txt_con.Text = Empty
End Sub

O erro é:

No Banco de dados tem vários Usuarios e Senhas, porém ele só acessa o primeiro registro do Banco de Dados.

[Graymalkin]

Ao fazer...

If RS!Usuario = txt_novouser.Text Then

... você realmente só está comparando com o registro atual (que no seu caso é o primeiro). Você deveria percorrer todos os registros ou, melhor ainda, fazer um SELECT para verificar a existência do nome de usuário.

Abraços,

Graymalkin