先用ADODC1连接了一个SQL Server数库库,再定义了一个Command对象
Dim objCmd As Command
然后如何  Set objCmd.ActiveConnection=??

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

我把代码发给你，谢谢．

Adodc1没有联接数据库。

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