Dim cnt As Integer

Dim username As String

Dim password As String

​

Private Sub CmdCancel_Click()

end

end Sub

​

Private Sub cmdlogin_Click()

  username= txtusername.Text

  password= Val (txtpassword.Text)

  If Adodcl.Recordset.Fields("User") = username And Adodcl.Recordset.Fields("Pass") = password Then 

    Msgbox " You have been successful Log in", vbInformation, "Login"

    else

      Msgbox "Username/Password field is wrong", vbCritical, "Login"

      cnt=cnt + 1

  end If

    If txtusername.Text = " " Then

      Msgbox "Username field can not be left blank",

      vbInformation, "Login"

    End If

    If txtpassword.Text = " " Then

      Msgbox "Password field can not be left blank",

      vbInformation, "Login"

    End if

    If cnt >=3 Then

      Msgbox "your three attempts have been over"

    End If 

End Sub

  Private Sub Form_Load()

    txtusername.TabIndex = 1

    txtusername.TabIndex = 2

    txtusername.Text = ""

    txtpassword.Text = ""

  End Sub

  Private Sub form_activate()

    cmdlogin.Enabled = False

    Cmdlogin.Enabled = False

  End Sub

  Private Sub txtusername_Change()

  cmdlogin.Enabled = True

  cmdCancel.Enabled = True

  End Sub

Private Sub txtusername_KeyPress(KeyAscii As Integer)

    If (KeyAscii >= 65 And KeyAscii <= 90) Or (KeyAscii >= 97 And KeyAscii <= 122) Or KeyAscii = 8 then

      else

        KeyAscii = 0

    End If

  End Sub

​

​