Dim cn12 As New ADODB.Connection
Dim rs12 As New ADODB.Recordset
cn12.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Aging.mdb "

rs12.Open "Select * From 注册 Where 用户='" & Text1.Text & "', cn12, 2, 3"

   

 Form3.Label1.Caption = rs!用户

 Form3.Label2.Caption = rs!权限

 Form3.Label4.Caption = rs!班次

 Form3.Label3.Caption = rs!所属
    
            rs12.Close
            Set rs12 = Nothing
            cn12.Close
            Set cn12 = Nothing

 
            Exit Sub
     
rs12.Close
Set rs12 = Nothing
cn12.Close
Set cn12 = Nothing

当前通过一个按钮，想实现把查询到的数据显示到LABEL中，代码有问题，请帮忙看看，

哎，怎么给你说呢，好像你听不进去，
1、各界面运行时不需要在每个控件的前面加界面名称，如 《Form3.Label3.Caption = rs!所属》 直接书写为 《Label3.Caption = rs1!所属》 不需要 Form3。
2、前面已经在建立了模块，模块中已经有 Public conn1 As New ADODB.Connection ，Public rs1 As New ADODB.Recordset   二个公用对象，在各界面就不要再定义这二个对象了。
3、模块中已经有了一个公用的数据库连接过程，在各界面就没有必要再次连接数据库，直接调用即可 Call KKK(conn1),以后修改数据库连接也特别方便，只修改模块中的数据库连接语句就可以。
4、你的程序中有很多不理解你的意思，看得我头都大了，那么多鼠标移动事件，不知道你的意图是什么，而且，在启动 FOrm3 时，Form2 已经关闭并从内存中清除了 Form2 ，因此肯定出错。
5、在你的程序中就没有发现连接数据库的语句，怎么能够将用户信息显示出来？

建议你还是先好好看看书，了解最基本的编程基础。

'你的这个程序也有好多问题:
Dim cn12 As New ADODB.Connection
Dim rs12 As New ADODB.Recordset
cn12.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Aging.mdb "

rs12.Open "Select * From 注册 Where 用户='" & Text1.Text & "', cn12, 2, 3"

   


 Form3.Label1.Caption = rs!用户    '记录集对象与你的记录集对象不是一个对象， rs 与 rs12 能一样吗？


 Form3.Label2.Caption = rs!权限


 Form3.Label4.Caption = rs!班次


 Form3.Label3.Caption = rs!所属
    
            rs12.Close
            Set rs12 = Nothing
            cn12.Close
            Set cn12 = Nothing


 
            Exit Sub
     
rs12.Close
Set rs12 = Nothing   '前面已经关闭了，这里再次关闭，有意义吗？
cn12.Close
Set cn12 = Nothing

呵呵，自己买了本书，看的学，所以有很多不理解的地方，希望继续得到你的指导，

可以把你理解的那种方案，代码写给我看看吗？谢谢了，

就是我们最原始要求的那种效果，FORM1里面的 用户 密码登录时，FORM3 LOADNG时根据它们进行查询4个内容到LABLE1，LABLE2，LABLE3，LABLE4中.

将你需要实现的目的说清楚，并将你的工程打包发给我，我给你修改一下，一般来说应该可以正常运行。

把你邮箱发给我，我发给你，

看私信