帮我看看错在那里了？

gxy1000

1. Private Sub Command7_Click()
   
2.      '定义 connection 对象
   
3.      Dim cn As ADODB.Connection
   
4.      '定义 recordset 对象
   
5. 
   
6. 
   
7.      Dim rs As New ADODB.Recordset
   
8.      Dim username As String
   
9.      Dim userpass As String
   
10.      Dim sql As String
    
11.      '使用access内置 connection对象
    
12.      Set cn = CurrentProject.Connection
    
13.      Text1.SetFocus
    
14.      username = Text1.Text
    
15.      Text3.SetFocus
    
16.      username = Text3.Text
    
17.      sql = "select*from users_1 where username =""& username &" 'and
    
18.              Password = "'& userpass & '"""
    
19.       rs.Open sql, cn
    
20.      If rs.EOF Then
    
21.            MsgBox "登录失败"
    
22.            Text1.SetFocus
    
23.            Text1.Text = ""
    
24.            Text3.SetFocus
    
25.            Text3.Text = ""
    
26.     Else
    
27.            DoCmd.Close
    
28.            DoCmd.OpenForm "主界面"
    
29.            MsgBox "登录成功"
    
30.     End If
    
31.     '关闭 recodset 对象和connection对象并释放内存资源
    
32.     rs.Close
    
33.     cn.Close
    
34.     Set rs = Nothing
    
35. End Sub

复制代码

roych

代码不是LZ自己写的吧（恕俺恶毒地这样想一下，(*^__^*) 嘻嘻……），代码贴过来时要顺手把相应的变量改过来的呀。这是我修改后的代码，请对比和你的不同之处。

1. Private Sub Command7_Click()
   
2. '定义 connection 对象
   
3. Dim cn As ADODB.Connection
   
4. '定义 recordset 对象
   
5. Dim rs As New ADODB.Recordset
   
6. Dim username As String
   
7. Dim userpass As String
   
8. Dim sql As String
   
9. '使用access内置 connection对象
   
10. Set cn = CurrentProject.Connection
    
11. Text1.SetFocus
    
12. username = Text1.Text
    
13. Text3.SetFocus
    
14. userpass = Text3.Text
    
15. sql = "select*from 用户表 where 用户名 ='" & username & " 'and 密码 = '" & userpass & "'"
    
16. rs.Open sql, cn
    
17. If rs.EOF Then
    
18. MsgBox "登录失败"
    
19. Text1.SetFocus
    
20. Text1.Text = ""
    
21. Text3.SetFocus
    
22. Text3.Text = ""
    
23. Else
    
24. DoCmd.Close
    
25. DoCmd.OpenForm "主界面"
    
26. MsgBox "登录成功"
    
27. End If
    
28. '关闭 recodset 对象和connection对象并释放内存资源
    
29. rs.Close
    
30. cn.Close
    
31. Set rs = Nothing
    
32. End Sub

复制代码

gxy1000

回复 roych 的帖子

我试试看！