creo que no me entendi muy bien eso de los errores que te faltan verdad te voya poner el codigo completo como lo tengo pero recuerda que tienes que modificar mas cosas que estas dejando como yo lo deje
Código vb2008:
Ver originalImports System.Data.OleDb
Imports System.Data
Public Class Login
Private veces As Integer = 0
Private Const NumeroIntentos As Integer = 3
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 -------------------recuerda que esta linea o el valor de 1 tiene que estar en la base de datos
forma.Show()
forma.Button5.Top = 128-------------- esto no es necesario lo que hace es que tu form se ponga en cierta posision de la pantalla al igual que la linea de abajo
forma.Button5.Left = 658---------la parte de top toma medida de la parte de arriba de tu pantalla y left de lado izq hacia la derecha si no me ekivoco
End If
'Hide()----------------- esto lo que hace es como que ocultar la form por eso esta como comentario porque si no cuando cierres el programa asi de simple vista no lo hace porque no esta cerra esta ventana que tiene el 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
espero que ya este solucionado y las partes dond te explique son como que opcional menos la condicion de estatus
otra observacion que vi es que tu tambien lo estas haciendo con access tu lo kieres con mysql si no me equivoco a menos que te hayas arrepentido