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