求代码！

有那位高手可以帮忙，

应该不是label的问题吗，感觉是rs没有找到你想要的记录
rs1.Open "Select * From 注册 Where 用户='" & Form1.Text1.Text & "' and 密码='" & Form1.Text2.Text & "'", cn, 2, 3   ' ，这里面的cn 应该是你设的 conn1，应该这样写

rs1.Open "Select * From 注册 Where 用户='" & Form1.Text1.Text & "' and 密码='" & Form1.Text2.Text & "'", conn1, 2, 3   '
你可以在这句话后加上句 msgbox rs1.RecordCount  看看是不是有记录

好的，我试试看，

怎么样，还是有问题嘛？另，msgbox rs1.RecordCount 弹出什么，定位到你想要的记录没？

这个，不会用，
具体语法可以写出来吗？

什么意思?  提取 相应的字段 即可,这是基本操作呀.
    if 记录数大于0 执行
       Rst.CursorLocation = adUseClient            
            Rst.Open strSQL, Conn, adOpenStatic, adLockReadOnly       '执行查询，并将结果输出到记录集对象

            With myActiveSheet        
                For j = 0 To Rst.RecordCount - 1   '填写标题
                    
                        '==================
                      label.caption= Rst!金额

                        '=====================
                    Rst.MoveNext
                Next j
            End With
        End If
        If Rst.State = 1 Then Rst.Close    '关闭数据库连接
        

看你的界面编的还不错，怎么最基本的都不会呀！
算了，把源代码发给我帮你改算了！