NOVATO: Login VS2008 & MySQL

[SirDuque]

Te muestro lo que voy haciendo:

Este es el form 1

Código VS2008:

Imports System.Data.OleDb
Imports System.Data
 
 
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        If Me.TextBox2.Text <> "" And Me.TextBox1.Text <> "" Then
            Dim cn As New OleDbConnection(sConexion)
            Dim estatus As Integer
            Dim forma As New Form2
            ' Permitir varios intentos
            veces = veces + 1
            'Comenzamos una transacción
            Try
                cn.Open()
                ' evitamos la inyección de código reemplazando las comillas simples
                ' por otro carácter
                Dim sql As String = "Select usuario From usuarios Where " & _
                " contraseña = '" & Trim(Replace(Me.TextBox2.Text, "'", "k")) & _
                "' And usuario = '" & Trim(Replace(Me.TextBox1.Text, "'", "k")) & "'"
 
                'creamos un comando
                Dim cmd As New OleDbCommand(sql, cn)
                'leemos el valor y lo convertimos a entero
                estatus = CInt(cmd.ExecuteScalar().ToString)
            Catch ex As Exception
                'mostramos el error
                If Err.Number = 91 Then
                    MessageBox.Show("No se encontro registro ")
                Else
                    MessageBox.Show("error " & Err.Number.ToString & vbCrLf & ex.Message)
                End If
            Finally
                'cerramos la conexion solo si esta abierta
                If (cn.State And ConnectionState.Open) <> 0 Then
                    cn.Close()
                End If
            End Try
            If estatus = 1 Then
                forma.Show()
                forma.Button5.Top = 128
                forma.Button5.Left = 658
            End If
            'Hide()
        Else
            MessageBox.Show("Ingresa tus datos completos", "Faltan Datos", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            ' todavía puedes hacerlo de esta forma
 
        End If
 
    End Sub
End Class
 

este es el modulo:

Código Modulo:

Module Module2
    Public sAppPath As String = Application.StartupPath.ToString
    Public sBaseDatos As String = sAppPath & "\astore.mdb"
    Public sConexion As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBaseDatos
    'la parte que esta en public esos estan en un modulo
 
End Module
 

Y los errores son:

Código errores:

Error   1   No se ha declarado el nombre 'veces'.   C:\Documents and Settings\Administrador\Mis documentos\Visual Studio 2008\Projects\Login Simple\Login Simple\Form1.vb   15  13  Login Simple
 
Error   2   No se ha declarado el nombre 'veces'.   C:\Documents and Settings\Administrador\Mis documentos\Visual Studio 2008\Projects\Login Simple\Login Simple\Form1.vb   15  21  Login Simple
 

si bien me brindas una solucion para esto:

el error 3 y 4 pones esto abajo de las lineas import porque se crea como que una funcion algo asi como el boton
Public Class Login
Private veces As Integer = 0
Private Const NumeroIntentos As Integer = 3

Cuando lo pongo me aparecen 15 errores aprox y me daña el form. :S

Pregunta es neceserio, segun Vs2008 es variable, y no esta definida :S de donde sale veces?