新手使用VB连接SQL实时错误‘3704’
错误：对象关闭时，不允许操作
简介：我要做的是一个办公自动化系统，窗体中有四个文本框，有一个Command1按钮，用于输出下一个查询结果，我刚开始写的代码比较简单，目的是要测试一下功能，但是当我惦记Command1按钮的时候，却出现了上面的错误，求高手不吝指教
代码如下：
全局：
Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rst As New ADODB.Recordset
---------------------------------
Private Sub Command1_Click()
rst.MoveNext
Set rst = Nothing
Set cmd = Nothing
Set cn = Nothing
End Sub
-------------------------------
Private Sub Form_Load()
综合处.Caption = "综合处办公系统"
综合处.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
Me.Move 0, 0, Screen.Width, Screen.Height '全屏显示
cn.Open "DSN=sl;uid=sa;pwd=1234;"
Set cmd.ActiveConnection = cn
cmd.CommandText = "Select * From 人事库"
cmd.CommandType = adCmdText
cn.CursorLocation = adUseClient
rst.Open cmd
Text1.Text = rst.Fields("职工号")
Text2.Text = rst.Fields("姓名")
Text3.Text = rst.Fields("性别")
Text4.Text = rst.Fields("年龄")

End Sub
----------------
可能解决方法很简单，但是还是希望各位高手能够耐心点，详细写出正确的代码，毕竟我是刚学的啊！

[解决办法]
你把断点设在form load里面然后一步一步Debug下来就好了。应该是你rst打开的问题吧。
你的text1.text正确显示了么？

去掉rst.movenext再试试看
[解决办法]
rst.MoveNext
这个有问题，rst记录集没有打开，所以不能移动
[解决办法]
要达到这个目的，应该在form_load事件中先加载rst
[解决办法]

如需要阅读该回复，请登录或注册CSDN!