我刚才试过了,没有问题可以正确执行,应该是没有勾选两个库的原因,第一种方法,在引用中勾选两个库,要不然就把类模块中的这两句
Dim conn As New Connection
Dim rst As New Recordset
改成
Dim conn As Object, rst As Object
Set conn = CreateObject("adodb.connection")
Set rst = CreateObject("adodb.recordset")
您好,能请问下Dim conn As New Connection
Dim rst As New Recordset
和
Dim conn As Object, rst As Object
Set conn = CreateObject("adodb.connection")
Set rst = CreateObject("adodb.recordset")