Nothing

Dim objCmd  As ADODB.Command
    Dim conn As New ADODB.Connection
    conn.Open Adodc1.ConnectionString
    Set objCmd.ActiveConnection = conn

Nothing

Adodc1没有联接数据库。

如果你想使用组件的话，还是不要使用代码中的定义了。
说实话，ADODB.Command这个东西一点用都没有，直接用Connection都能搞定他的所有功能。