如何用ADO 只開一個SQL connection 然後開多個不同資料的records(編號：1336)

現在我的coding 如下:
Dim con as ADODB.connection
Set con = New ADODB.connection
Dim rs as ADODB.recordset
Set rs = New ADODB.recordset
Dim sql as string
sql = "Select * From Table"
con.Open
rs.Open sql, con, ...
請問可否給我一個類似的example?
另外也想問一問, ADODB.command 的 activeconnection 的用處是否只在於
可以 execute SQL command, 例如update table, Insert Into table 等等?
多謝指教...