vb中对象打开时，不能操作，急急急！！！

模块中定义内容：
Public UserStyle As String
Public str As String
Public userID As String
Public adors As New ADODB.Recordset
Public adoconn As New ADODB.Connection
Sub opendata()
If adoconnstate = adStateOpen Then
adonconn.Close
End If
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\exam.mdb;Persist Security Info=False"
adoconn.Open str
End Sub

用户登录有三种类型，不同类型的用户ID和密码，保存在不同的表里
登录验证代码如下：
Private Sub yes_Click()
Dim password As String
Dim Conn As String
Call opendata
userID = Trim(TextLogin(0).Text)
password = Trim(TextLogin(1).Text)
If UserStyle = "学生" Then
Conn = " select number,password from student where name='" & userID & "'"
ElseIf UserStyle = "教师" Then
Conn = " select number,password from teacher where name='

vb问题--对象打开时，不允许操作 vb 打印报表,实时错误,3705,对象打开时不能操作 asp对象打开时,不允许操作。 vb 要求对象。。。急 求救：在word2003中单击插入/对象时出现错误报告，不能打开对象对话框，请问怎么处理？ vb “对象关闭 不允许操作”急急急急！！！！ ADODB.Recordset (0x800A0E79) 对象打开时，不允许操作。 VB中面向对象是什么意思？ 急！急~~~对象关闭时，不允许操作~~~~有代码~帮忙！ VB要求对象.急!急!急!