Access 2007/2010 Validate Userid and password using ADO

Hi and thank you for helping me!

I have a signon screen for users to input a templateID and Password and am looking to have this corrected.  Right now it only works on the first record.  

Here is my code:


Private Sub ContinToDisp_Click()

'Check to see if data is entered into the TemplateID combo box
    If IsNull(Me.cboTemplateID) Or Me.cboTemplateID = "" Then
      MsgBox "You must enter a TemplateID.", vbOKOnly, "Required Data"
        Me.cboTemplateID.SetFocus
        Exit Sub
    End If

    'Check to see if data is entered into the password box
    If IsNull(Me.txtPassword) Or Me.txtPassword = "" Then
      MsgBox "You must enter a Password.", vbOKOnly, "Required Data"
        Me.txtPassword.SetFocus
        Exit Sub
    End If
   
'Check database for valid Template ID
Set rs = New ADODB.Recordset
Me.cboTemplateID.SetFocus
sSQL = "select Passlist from MainTable where TemplateID = '" & cboTemplateID.Text & "'"
'and PassList ='" & txtPassword.Text & "'"
 
rs.Open sSQL, CurrentProject.Connection
If rs.EOF Then
    MsgBox "Invalid Login, please try again", vbOKOnly, "Required Data"
        Me.cboTemplateID.SetFocus
    Exit Sub
    Else

' Check the password on the current record that is selected
If Me.txtPassword = PassList Then
   
'******************************* Open Template Named Excel WorkBook **********************
Path1 = CurrentProject.Path
Path2 = "\FleetMarineUser\"
Path3 = Me.cboTemplateID
Strtxt1 = SCGTitle
SCGPassword = "SCGTemplate"

DoCmd.Close acForm, "SignOn", acSaveNo
    Set objXLApp = CreateObject("Excel.Application")
    Set objXLBook = objXLApp.Workbooks.Open(Path1 & Path2 & Path3)
    Set objXLSheet = objXLBook.Worksheets
    objXLApp.Application.Visible = True

DoCmd.OpenForm "MyActions"
Else
MsgBox "Invalid Login, please try again", vbOKOnly, "Required Data"
        Me.txtPassword.SetFocus
Exit Sub
End If
End If
  rs.Close
  Set rs = Nothing

    'If User Enters incorrect password 3 times database will shutdown
    intLogonAttempts = intLogonAttempts + 1
    If intLogonAttempts > 3 Then
      MsgBox "You do not have access to this database.Please contact admin.", _
               vbCritical, "Restricted Access!"
        Application.Quit
    End If
   
End Sub




Right now it is working like:

Record 1:
TemplateId=02-01-0001 and Password=GoGo123#
Record 2:
Templateid=02-02-0001 and Password=ABCabc123#


user inputs:
Templateid = 02-02-0001
Password = ABCabc123#

I would get invalid login error (which is not correct)

Yet:
Templateid = 02-02-0001
Password = GoGo123#

it would pass (which is not correct).  So it looks like password is only valid on first record


Please help me and thank you!