我的里面都有源码什么的都写好了，就是在验证的时候出现了    一个属性不可用的提示，请高手帮忙解决下

[ 本帖最后由 殇·逝 于 2010-11-28 16:26 编辑 ]

谢谢，这位大哥，现在已经能验证正确的用户名和密码了，但是在验证错误的用户名的时候就会报错了
Private Sub Command1_click()

If Text1 = "" Or Text2 = "" Then '检验文本内容是否为空

   MsgBox "请输入用户名或密码", vbInformation, "提示"
   
Else
  Adodc1.Refresh '数据控制刷新
  
  Adodc1.Recordset.Find "用户名='" & Text1 & "'"
   
   If Adodc1.Recordset.Fields("用户名").Value <> Text1 Then
      
     MsgBox "用户名不存在", vbInformation, "提示"
     
     Else
        
        If Adodc1.Recordset.Fields!密码 = Text2 Then
         
          MsgBox "登陆成功", vbInformation, "提示"
        
        Else
         
          MsgBox "密码错误", vbInformation, "提示"
        
        End If
     
     End If
     
End If

End Sub



在帮我改一下吧！谢谢！   我已经把改好的重新上传了！

[ 本帖最后由 殇·逝 于 2010-11-28 16:27 编辑 ]

小弟在这谢过了！