[求助]自动化错误
If rs1.Fields("use_name") = Text1.Text And rs1.Fields("use_password") = Text2.Text And rs1.Fields("use_power") = Combo1.Text Then当运行至此,提示自动化错误
代码为
rs.Open "select * from use ", cn, adOpenKeyset, adLockPessimistic
If rs.RecordCount > 0 Then
If Text1.Text <> "" And Text2.Text <> "" Then
Set rs1 = New ADODB.Recordset
rs1.Open "select * from use where use_name='" & Text1.Text & " and use_power= " & Combo1.Text & "'", cn, adOpenKeyset, adLockPessimistic
If rs1.Fields("use_name") = Text1.Text And rs1.Fields("use_password") = Text2.Text And rs1.Fields("use_power") = Combo1.Text Then
请问大虾们红色字该怎么改呀