哪错了？请指教！！

Question

第二句改为
Dim Cnn As New Connection

Answer 1

还差一句
Dim Cnn As New Connection
Set Cnn = New ADODB.Connection

Answer 2

可是我在另一个“添加”的command3下就是这样使用的阿：
Dim cnn As New ADODB.Collection
Dim rs As New ADODB.Recordset
应该说是可以的阿

Answer 3

ado连接对象有不同的写法，
dim cnn as new adodb.connection这句代码声明了ado连接对象并转化成一个
对象的实例，可以进行open操作了。也就是说你的连接没错.
而
dim cnn as adodb.connection '这句只声明了一个对象并在内存中分配空间
Set cnn=new connection      '转化为实例,注意new关键字
相对而言第二种方法更好一点.
变量未定义应该和ado连接无关,
调试一下检查那行代码看看有没有错误,