一个类的引用错误高手进来看看

Question

Set aa.examword = Text1.Text　‘属性的使用无效
Set aa.stname = Text2.Text
这两句肯定是错的，只有对象的赋值才用SET。
Public conn As ADODB.Connection
改为：
Public conn As new ADODB.Connection或者：
Private Sub Class_Initialize()
set conn = new ADODB.Connection
conn.ConnectionString = "porvider=microsoft.jet.oledb.4.0; datasoure=C:\WINDOWS\Desktop\类\examsystem.mdb"
conn.Open
If conn.State <> adStateOpen Then
    MsgBox "数据库打开失败", vbOKOnly + vbCritical, "警告"
        Exit Sub
End If
End Sub

Answer 1

主要就是你的conn对象没有初始化。