对象变量或with块变量未设置
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=pubs;Data Source=pubs (SQL Server)"
Adodc1.Recordset.Open "select * from 供货商", Cnn, adOpenKeyset, adLockOptimistic (对象变量或with块变量未设置)


[解决办法]
Adodc1.Recordset.Open "select * from 供货商"就行了，后面的Cnn没必要，代码中前面也没说明
[解决办法]

VB code

Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=pubs;Data Source=pubs (SQL Server)"Adodc1.RecordSource = "select * from [供货商]"Adodc1.Refresh