VB中实时错误3705，谁会帮我改下啊

来源：百度知道 编辑：UC知道 时间：2024/06/14 15:45:24
VB程序，打开一个窗体，关掉再打开会出现实时错误3707“对象在打开时，不允许操作”，求高手帮我解答，详细点，谢了！
这个窗体代码如下
Private Sub Form_Load()
Command1.Enabled = True
Command2.Enabled = True
Command4.Enabled = True
Command7.Enabled = True

Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
Combo1.AddItem "4"
Combo1.AddItem "5"
Combo1.AddItem "6"
Combo1.AddItem "7"
Combo1.AddItem "8"
Combo1.AddItem "9"
Combo1.AddItem "10"
Combo1.AddItem "11"
Combo1.AddItem "12"

connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=database\企业工资管理系统.mdb;Persist Security Info=False"
Conn.Open connstr ‘报错的就是这句

mysql = "select * from 考勤信息表"
rs.CursorLocation = adUseClient
rs.Open mysql, Conn, adOpenKeyset, adLockPessimistic

Set DataGrid2.DataSource = rs
Data

Conn.Open
应是一个数据库连接的语句，
楼主可能是没提供完全吧？

就是说，这个连接占用着呢，你必须先，close
之后中才能，再用这句话，

你现在做程序时，是不是数据库还在用着呢？