Vinicius2445

Gente preciso de ajuda, urgente, pois no meu projeto, irá ter uma página que o usuário irá se registrar, para um usuário não se registrar mais de uma vez, caso ele esqueça a senha, o campo email será o verificador, se o email estiver cadastrado, ele n poderá fzr o cadastro, aparecendo uma messagebox, só que não está aparecendo a mensagem quando coloco o email repetido, dá um erro e fala que tem um operador faltando textbox13 é o campo email N_Cad é a chave primária Dim cod As String cod = TextBox13.Text Dim sqll As String = "SELECT * FROM Cad_Cliente where N_Cad =" & cod Dim cm1 As New OleDb.OleDbCommand(sqll, dbcon) Dim dr1 As OleDb.OleDbDataReader Dim flag As Boolean Try dbcon.Open() dr1 = cm1.ExecuteReader If dr1.HasRows Then While dr1.Read If dr1.Item("Email") = cod Then flag = True MessageBox.Show("Você já é cadastrado, caso ão consiga entrar, por favor, acessar a opção recuperar senha na página de login") End If End While End If If flag = False Then MessageBox.Show("Ocorreu algum erro") End If Catch ex As Exception MessageBox.Show(ex.Message) End Try dbcon.Close()