--先連接數(shù)據(jù)庫(kù)，再打開記錄集，搞定。
Dim conn_ora As New ADODB.Connection   '用于連接ORACLE數(shù)據(jù)源的連接
conn_ora.ConnectionString = "Provider=MSDAORA.1;Password=111;User ID=system ;Data Source=orcl;Persist Security Info=True"
conn_ora.Open
Dim myrs_ora As New ADODB.Recordset    '用于連接ORACLE數(shù)據(jù)庫(kù)的記錄集
   myrs_ora.ActiveConnection = conn_ora.ConnectionString
   myrs_ora.Open ("Select *  From AAA")