在ActiveX中如何返回一个记录集的属性

Question

你需要将自定义控件的DataSourceBehavior 属性 设为“vbDataSource”，然后这么做就可以了。

Answer 1

但回到主程序后时拔号连接已经关闭,这时cn,rs都已关闭,该控件还有数据吗？

Answer 2

这样不行，干脆你传一个Recordset的引用到控件中
sub GetRecDB(byref rsXX as adodb.recordset)
  rsXX.open .......
  ................
end sub