LOGIN en WinForms

[jebado]

Hola maestros:
Hoy la consulta va encaminada al acceso de seguridad de mi proyecto.
Necesito un ejemplillo de USUARIO-PASSWORD que accediendo a una BD Access de paso al usuario a la ejecución del programa. Comentar que estoy también empezando con acceso a datos y es mi primera base de datos relacional así como sus instrucciones en Visual Basi.NET. Todavía me cuesta entender aquello de las relaciones, Dataset, DataAdapter, instrucciones SQL… pero me va entrando

[jebado]

Bueno, pues tengo esto, a ver qué os parece...
Private Sub btnValidar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnValidar.Click
Dim strConexion As String = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\BD.mdb;"
conexion = New OleDbConnection(strConexion)
conexion.Open()

Dim strComan As String = "SELECT Usuario, Password FROM Usuarios WHERE Usuario = '" & txtUsu.Text & "'" & " AND Password = '" & txtContra.Text & "'"
Dim coman As New OleDbCommand(strComan, conexion)
Dim resul As OleDbDataReader
Dim inicio As New Form1

resul = coman.ExecuteReader

Try
If txtContra.Text = "" And txtUsu.Text = "" Then
MsgBox("ERROR: DEBE INTRODUCIR ALGUN DATO", MsgBoxStyle.Exclamation)
End If

If resul.Read() = True Then
If txtUsu.Text <> resul(0) And txtContra.Text <> resul(1) Then
MsgBox("ERROR: USUARIO Y/O CONTRASEÑA INCORRECTOS", MsgBoxStyle.Critical)
VaciarControles()
Else
psUsuario = txtUsu.Text
psContra = txtContra.Text
inicio.Show()
Me.Hide()

End If
Else
MsgBox("ERROR: USUARIO Y/O CONTRASEÑA INCORRECTOS", MsgBoxStyle.Critical)
VaciarControles()
End If

Catch ex As Exception
MsgBox("ERROR: USUARIO Y/O CONTRASEÑA INCORRECTOS", MsgBoxStyle.Critical)
End Try
resul.Close()
conexion.Close()
End Sub

[RootK]

Solo como comentario podría colocarlo tambien de ésta forma:

If txtContra.Text = "" And txtUsu.Text = "" Then
MsgBox("ERROR: DEBE INTRODUCIR ALGUN DATO", MsgBoxStyle.Exclamation)
VaciarControles()
Exit Sub
End If

Dim strConexion As String = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\BD.mdb;"
conexion = New OleDbConnection(strConexion)
conexion.Open()

Dim strComan As String = "SELECT Usuario, Password FROM Usuarios WHERE Usuario = '" & txtUsu.Text & "'" & " AND Password = '" & txtContra.Text & "'"
Dim coman As New OleDbCommand(strComan, conexion)
Dim resul As OleDbDataReader
Dim inicio As New Form1

resul = coman.ExecuteReader()
Dim blnOK as Boolean = False

If resul.Read() Then
blnOk = True
End If

resul.Close()
conexion.Close()


If Not blnOK
MsgBox("ERROR: USUARIO Y/O CONTRASEÑA INCORRECTOS", MsgBoxStyle.Critical)
VaciarControles()
Else
psUsuario = txtUsu.Text
psContra = txtContra.Text
inicio.Show()
Me.Hide()
End If

End Sub

Salu2