你应该这样 public function opendatabase() as adodb.connection ……………… conn.open constr set opendatabase=conn ……………… end sub我在我的另外一个程序里面: dim conn as adodb.connection dim objData as project.database set objData = new project.database set conn=objData.opendatabase dim rs as adodb.recordset set rs = new adodb.recordset rs.open "select * from test",conn,1,1
public function opendatabase() as adodb.connection
………………
conn.open constr
set opendatabase=conn
………………
end sub我在我的另外一个程序里面:
dim conn as adodb.connection
dim objData as project.database
set objData = new project.database
set conn=objData.opendatabase
dim rs as adodb.recordset
set rs = new adodb.recordset
rs.open "select * from test",conn,1,1