Autentificar Usuario .NET con SQL

[Avellaneda]

Prueba así:

Código vb.net:

Imports System.Data.SqlClient
 
Public Class LoginForm1
    Dim cont As Int32 = 0
    ' conexión a una BD SQLExpress
    Dim con As New SqlConnection("Server=.\SQLEXPRESS;Integrated Security=True;Database=BaseSQL")
 
    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        If VerificarUsuario(UsernameTextBox.Text, PasswordTextBox.Text) Then
            ' correcto, salimos a True
            EsOk = True
            Me.Close()
        Else
            ' le damos 4 intentos y si no, salimos a False
            MsgBox("Usuario o contraseña incorrectos" & vbNewLine & "Quedan " & 3 - cont & " intentos")
            cont += 1
        End If
        If cont = 4 Then Me.Close()
    End Sub
 
    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
        Me.Close()
    End Sub
 
    Private Function VerificarUsuario(ByVal ElUser As String, ByVal ElPass As String) As Boolean
        Dim dr As SqlDataReader
        Dim strSQL As String = "SELECT * FROM Usuarios Where Nombre = '" & ElUser & "' And Pass = '" & ElPass & "'"
        con.Open()
        Dim cmd As New SqlCommand(strSQL, con)
        dr = cmd.ExecuteReader
        dr.Read()
        If dr.HasRows = True Then Return True
        con.Close()
    End Function
End Class
 

En el Load del form de inicio:

Código vb.net:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Show() ' si quieres mostrar el Login dentro del Form de inicio
        LoginForm1.ShowDialog()
        If EsOk = False Then End
 
' ....instrucciones de inicio
 
End Sub