与active有关

[contactjoe]

工程personserver中已加入userconnection并改名为conperson,
其属性连接为ODBC数据源newperson,
personserver工程类型为ActiveX EXE,
工程中类模块person代码为：
(通用) Dim conn As conperson
Dim qy As rdoQuery
Dim rs As rdoResultset
......
Private Sub Class_Initialize()
Set conn = New conperson
conn.EstablishConnection
End Sub

'personid,personname,address,email,phone为person类属性

Public Sub getdata()
Set qy = New rdoQuery
If personid <> 0 Then
qy.SQL = "select * from qryperson where personid=" & personid
qy.MaxRows = 1
Set qy.ActiveConnection = conn '运行停在此句
Set rs = qy.OpenResultSet
With rs
personname = !personname
address = !address
email = !email
phone = !phone
End With
End If
......
我先在立即窗口中测试,写了如下代码：
set f=new personserver.person
f.personid=1
f.getdata 当在此句后敲回车时出错：
实时错误'13'：类型不匹配

请帮忙解决,谢谢

[iwin]

应该是：dim conn as connection 吧