ado 问题达人们来看看吧！！！（小问题）

Question

我从菜单里进入这个窗体里就会出现 实时错误3705 对象打开时不允许操作，指向
它：db.Provider = "Microsoft.Jet.OLEDB.4.0;Data Source=F:\VB-1\db1.mdb"而我单独启动这个窗体时又没有错误为什么呀！望达人帮忙解决啦！

Answer 1

密码验证得代码：  
   Set db = New ADODB.Connection
   Set rs = New ADODB.Recordset
db.Provider = "Microsoft.Jet.OLEDB.4.0;Data Source=F:\VB-1\db1.mdb;"
db.CursorLocation = adUseClient
db.Mode = adModeUnknown
db.ConnectionString = "user id=admin;data source=db1.mdb"
db.Open
rs.Open "select 用户名 from 登入表", db, adOpenStatic, adLockReadOnly
rs.Close
If Combo1.Text <> "" Then
rs.Open "select 用户名,密码 from 登入表 where 用户名='" & Combo1.Text & "' and 密码='" & Text1.Text & "'"
If rs.EOF = True And rs.BOF = True Then
n = MsgBox(" 密码错误！请重试!", vbExclamation)
Text1.Text = ""
 Text1.SetFocus
 Else
MsgBox ("登陆成功！")
Form3.Show
Unload Me
End If
rs.Close
Else
 n = MsgBox(" 请选择用户名！", vbExclamation)
 End If
要怎么关？？？

Answer 2

或者你可以将rs在验证模块中声明，这样当超出模块的作用域后，rs自动释放。

Answer 3

rs.close
db.close
set rs=Nothing
set db=Nothing