关于ADO编程

Question

我在一个事件中，需要两次打开数据表，类似代码如下：Dim recsADO As New ADODB.Recordset
Dim recsLine As New ADODB.Recordset
Dim cnn As New ADODB.Connection
cnn.ConnectionString = "DSN=Article;UID=sa;PWD=sa"
cnn.Open
recsADO.Open "select distinct 车站 from 车站路线表", cnn, 3, 2
cnn.ConnectionString = "DSN=Article;UID=sa;PWD=sa"
cnn.Open
recsLine.Open "select  * from 车站路线表", cnn, 3, 2
运行时，执行“recsLine.Open "select  * from 车站路线表", cnn, 3, 2”，提示错误：对象打开时不允许操作。是不是不允许打开两个表，但是我又需要两次打开数据表，以获得不同的数据，请高手帮帮我，该怎么做？谢谢了，拜托各位了.

Answer 1

recsADO.Open "select distinct 车站 from 车站路线表", cnn, 3, 2
recsADO.close

Answer 2

cnn.ConnectionString = "DSN=Article;UID=sa;PWD=sa"
cnn.Open连接打开两次是什么意思？

Answer 3

cnn没有关闭，当然不能再次打开了；
连接字符串完全一样的，又赋值一次，想做啥？
晕死~

Answer 4

Set recsADO=New ADODB.Recordset
Set recsLine=New ADODB.Recordset
Set cnn=New ADODB.Connection
cnn.ConnectionString = "DSN=Article;UID=sa;PWD=sa"
cnn.Open
recsADO.Open "select distinct 车站 from 车站路线表", cnn, 3, 2
....
recsLine.Open "select  * from 车站路线表", cnn, 3, 2
recsADO.Close
recsLine.Close
cnn.Close