LOGIN COM ACESS

Public Class Form1
    Dim chave1, chave2 As New OleDb.OleDbCommand()
    Dim conexao As New OleDb.OleDbConnection()
    Dim Read As OleDb.OleDbDataReader
    Dim tentativas As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        conexao.ConnectionString = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Pescarolli!\SYSTEM\Desenvolvimento de Programas\SEVER.mdb[Ô]
 chave1.Connection = conexao     
   chave1.CommandType = CommandType.Text
        chave1.CommandText = [Ô]Select * From User Where Usuario=? and Senha=?[Ô]

        chave2.Connection = conexao
        chave2.CommandType = CommandType.Text
        chave2.CommandText = [Ô]Select * From User Where Usuario=? and Senha=?[Ô]


    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        chave1.Parameters.Add([Ô]Usuario[Ô], Data.OleDb.OleDbType.Variant)
        chave1.Parameters.Add([Ô]Senha[Ô], Data.OleDb.OleDbType.Variant)
        chave1.Parameters([Ô]Usuario[Ô]).Value = TextBox1.Text
        chave1.Parameters([Ô]Senha[Ô]).Value = TextBox2.Text

        [ô]Abre conexao com banco de dados
        conexao.Open()

        [ô] Le a informação do banco de dados
        Read = chave1.ExecuteReader
        verificaLogin()

        [ô] fecha a conexao com o banco de dados
        conexao.Close()

    End Sub
    Private Sub verificaLogin()
        If tentativas >= 3 Then
            MessageBox.Show([Ô]Número de tentativas foi excedido ![Ô], [Ô]Login[Ô], MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            [ô]Fecha aplicação
            End
        Else
            TextBox1.Clear()
            TextBox2.Clear()
            MessageBox.Show([Ô]Chave ou senha inválida ![Ô], [Ô]Login[Ô], MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If

        TextBox1.Focus()

    End Sub
End Class