adodc1.refresh出错怎么改

Private Sub cmdLogin_Click()


ss = txtUserName.Text


Adodc1.RecordSource = "SELECT * FROM  管理员 where 管理员号='" + ss + "'"


Adodc1.Refresh


If Adodc1.Recordset.BOF = True And Adodc1.Recordset.EOF = True Then

MsgBox "查无此人", , "登陆信息"
Else
 
     
     If Adodc1.Recordset.Fields(1) = txtPassword.Text Then
        
         ''''''''''''''''''''''''''''''''''''''''''
        MsgBox "身份正确", , "登陆信息"
     
     
     Adodc1.RecordSource = "select 权限1,权限2,权限3 from 管理员 where 管理员号='" + ss + "'"
    Adodc1.Refresh
   
 工具室管理系统.用户管理.Enabled = Adodc1.Recordset.Fields(0).Value
   工具室管理系统.设置权限.Enabled = Adodc1.Recordset.Fields(1).Value
   工具室管理系统.初期设置.Enabled = Adodc1.Recordset.Fields(2).Value
   
     
       工具室管理系统.Show
         
         Unload Me
        
      
           '''''''''''''''''''''''''''''''''''''''''''''''''''
     Else
        MsgBox "密码不正确", , "登陆信息"
     End If
  
 
  End If
   

End Sub