🚀 go-pugleaf

Hi Folks: the following code snippet is a loop for a password, and it works
fine as it is...but I need to give the user three tries before exiting the
sub and can't figure out the loop...can you help?

Here's the code...


Private Sub cmdOK_Click()

Dim strLName As String
Dim strPW1 As String
Dim strLevel As String
intCount = intCount + 1
    Open "a:\password.dat" For Input As #1
        Do While Not EOF(1)
        Input #1, strLName, strPW1, strLevel

        If LCase(Trim(strLName)) = LCase(Trim(txtUserName.Text)) And
LCase(Trim(strPW1)) = LCase(Trim(txtPassword.Text)) And
LCase(Trim(strLevel)) = 3 Then
             frmMain.Show
             Me.Hide
             Close #1
             Exit Sub

        Else
        If LCase(Trim(strLName)) = LCase(Trim(txtUserName.Text)) And
LCase(Trim(strPW1)) = LCase(Trim(txtPassword.Text)) And
LCase(Trim(strLevel)) = 2 Then
             Me.Hide
             frmMain.Show
             frmMain.cmdAssign.Visible = False
             frmTables.cmdOrders.Visible = False
             frmTables.cmdOL.Visible = False
             frmTables.cmdPurch.Visible = False
                frmTables.cmdCR.Visible = False
                Close #1
                Exit Sub
        Else
        If LCase(Trim(strLName)) = LCase(Trim(txtUserName.Text)) And
LCase(Trim(strPW1)) = LCase(Trim(txtPassword.Text)) And
LCase(Trim(strLevel)) = 1 Then
        Me.Hide
        frmMain.cmdView.Visible = False
        frmMain.Show
        Close #1
        Exit Sub

        End If
        End If
        End If

        Loop


        Close #1
        MsgBox "Sorry, wrong password."

End Sub