Erro ExecuteReader VB10

18/08/2014

Boa Tarde a todos estou com uma dificuldade em resolver o meu c�digo em vb10
o c�digo � para que um usu�rio depois de cadastrado entre com o seu nome e senha estou tendo um erro do tipo "OleDbException was unhandled"
e Erro de sintaxe na cadeia na express�o de consulta no comando ExecureReader
Os tipos de dados da minha tabela em access s�o: Nome-tipo de dado Texto e Senha-tipo de dado n�mero
por favor se algu�m poder ajudar-me astarei mui agradecido.
Estou passsando o C�digo

Dim conexao As New OleDbConnection
        Dim comandos As New OleDbCommand
        Dim consulta As OleDbDataReader

        conexao.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0; DATA SOURCE = C:\Users\hp\Mat�ria escolar 2014\VB\Sistema_Login\bin\Debug\Banco_login.accdb;"
        conexao.Open()
        comandos.Connection = conexao
        comandos.CommandText = "SELECT *from login where Nome = '" & TextBox1.Text & "'And Senha ='" & TextBox2.Text '""
        consulta = comandos.ExecuteReader()

        If (consulta.HasRows) Then
            Form3.Show()
        ElseIf (TextBox1.Text = "") Then
            MessageBox.Show("Campo do nome Vazio", "Resultado", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        ElseIf (TextBox2.Text = "") Then
            MessageBox.Show("Campo da senha vazio", "Resultado", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        ElseIf (TextBox1.Text = "" And TextBox2.Text = "") Then
            MessageBox.Show("Campo do nome e senha Vazios", "Resultado", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        Else
            MessageBox.Show("Email ou Senha est� Incorrecto", "Resultado", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End If
        conexao.Close()
        Me.Close()

Israel Bango

Curtir t�pico + 0

Responder