Inicio de sesión(HABILITAR y DESHABILITAR CUENTA del Login)En Visual.Basic.Net con SQL Server |2023| 

Hola amigos les traigo un nuevo tutorial para poder ingresar mediante un usuario y contraseña en VISUAL STUDIO y darle HABILITAR y DESHABILITAR CUENTA un inicio de sesión.
If cbTipoUsurio.SelectedIndex = -1 Then
MsgBox("Seleccionar Cargo", vbInformation, "Seleccionar Cargo")
cbTipoUsurio.Focus()
Exit Sub
End If
If Len(Trim(TxtUsuario.Text)) = 0 Then
MsgBox("Ingresar Usuario", vbInformation, "Ingresar Usuario")
TxtUsuario.Focus()
Exit Sub
End If
If Len(Trim(TxtContraseña.Text)) = 0 Then
MsgBox("Ingresar Contraseña", vbInformation, "Ingresar Contraseña")
TxtContraseña.Focus()
Exit Sub
End If
----------------------------------------------------------------------------------------
Dim stado As String
stado = dr.Item(4)
If stado = "0" Then
MsgBox("El usuario esta inactivo")
Exit Sub
End If
Login en Visual Studio.Net y Sql Server | Login en Visual Basic