VB里面没有加"Option Explicit"的话,变量并不强制定义的,当然这个习惯不好,你可以在你的VB代码编辑器的最最上面一行,加上"Option Explicit"试试,按F5运行,会告诉你ADORS\ADOCN未定义的.
你可以这样定义:
Dim ADOCN As ADODB.Connection
Dim ADORS As ADODB.Recordset
或者
Dim ADOCN As New ADODB.Connection
Dim ADORS As New ADODB.Recordset