Login fejl !

Sådan ser koden til min login knap ud:

Dim Password As String
Password = LCase(GetSetting("PersonalSecurity", "User" & Options.lstUsr.ListIndex, "Password", ""))

If Password <> LCase(txtPassword.Text) Then
    MsgBox "The password you specified is incorrect.", vbExclamation + vbOKOnly
    Exit Sub
End If

UserNum = Options.lstUsr.ListIndex + 1

UserName = Options.lstUsr.List(Options.lstUsr.ListIndex)

MsgBox "Finally"

<--SLUT-->

den skulle hente bruge navn og password fra regbasen...

men det gør den ikke !

Hvad er der galt ?