LOGIN en WinForms

[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