CoInitialize(NULL);
_ConnectionPtr  cn("ADODB.Connection");
_RecordsetPtr   rs("ADODB.Recordset");
_bstr_t         strMissing(L""); cn->Open("Provider=SQLOLEDB.1;Data Source=.;"
"Initial Catalog=ExamDir;User Id=sa;Password=;", 
strMissing, "",
adConnectUnspecified);

cn->Execute("select * from Instrument",&vtMissing,adCmdText);
cn.Release();
rs.Release(); cn.CreateInstance("ADODB.Connection");
rs.CreateInstance("ADODB.Recordset"); cn->Open("Provider=SQLOLEDB.1;Data Source=.;"
"Initial Catalog=ExamDir;User Id=sa;Password=;", 
strMissing, "",
adConnectUnspecified); rs->PutRefActiveConnection( cn );
         //////////出现错误800A0BB9(参数类型不正确)
rs->Open("Instrument", vtMissing, adOpenStatic, adLockReadOnly,  adCmdTable);
::CoUninitialize();真找不到原因了!