비주얼베이직 로그인에대한 질문입니다.

학교 프로젝트 숙제를 하면서 로그인을 시킬려고 합니다.
기존에 데이타베이스에 입력되어있는 학생들의 학번으로 패스워드를
할려고 하는데요.. 코드를 잘 못짰는지 텍스트 박스에 입력한 패스워드가
데이타베이스에 있는 학번과 비교가 되지 않네요...
도움말좀 부탁드립니다. 조금 급하거든여^^;;;

Private Sub cmdOK_Click()
    '정확한 암호를 확인합니다.
    Dim ID As String
    Dim SQL As String
    Dim a As String
  
    ID = txtUserID.Text
    SQL = "select * from 학생관리 where 학번 = '" & ID & "'"
    Adodc1.Recordset = a
    Adodc1.RecordSource = SQL
  
    txtUserName.Text = SQL
    
    If ID = a Then
        '코드를 여기에 붙여 넣어
        '성공 사항을 호출 Sub로 전달합니다.
        '전역 변수를 설정하는 것이 가장 쉽습니다.
        LoginSucceeded = True
        MsgBox "시스템에 로그인 되었습니다"
        frmMain.Show
        Me.Hide
    Else
        MsgBox "암호가 잘못되었습니다. 다시 시도하십시오", , "로그인"
        txtUserID.SetFocus
        SendKeys "{Home}+{End}"
    End If
End Sub