Question

急！vb实时错误“3709“连接无法用于执行此操作，在此上下文中他可能已经被关闭或无效

private sub form_load()
dim adors as new recordset
adors.activeconnection=adocn
adors.open "select 学号 from 学生情况表 order by 学号" ………………这里有问题
combo1.clear
do while not adors.eof
combo1.additem trim(adors.fields("学号"))
adors.movenext
loop
adors.close
adors.open"select 课程号 from 课程情况表order by 课程号"
combo2.clear
do while not adors.eof
combo2.additem trim(adors.fields("课程号"))
adors.movenext
loop
adors.close
text1.text=""
text2.text=""
text3.text="0"
end sub
大侠们帮帮忙，到底怎么回事啊，运行不了了，解决了问题加分啊
有问题的地方已经标出来了，其他几个窗口也都引用了上半部分的代码，都是那一句不行

Answer 1

没有打开数据库
dbF = App.Path & "\db.mdb"
adocn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbF & " ;Persist Security Info=False;

追问

不好意思，我不太懂这个，是添加这段代码吗，其他窗口的代码也要添加吗

追答

这个是指明数据库的，没他，系统不知道往哪里找库。放在头上。
另外还应该去：工程——引用——找到“Microsoft AXtive Data Object 2.8” ，否则也没用的。
具体看看数，网上参考一下数据库相关的内容。