我试了，始终说连接数据库失败，我的 程序也一样失败
#pragma option(mbcs)

char *s ,*d;
__object *gcn, *grs;
char query[500];
int Count;

gcn = __object_create("ADODB.Connection");
grs = __object_create("ADODB.RecordSet");

if(NULL==gcn)
{
MessageBox (NULL, "Can not Create Connection", "Message", MB_OK MB_ICONEXCLAMATION MB_SYSTEMMODAL);
}

else
{
gcn->ConnectionString = "Driver={SQLServer};Server=CHR\WINCC;Database=Work;Uid=sa;Pwd=sa;" ;

gcn->Open（）


if (gcn->State==0)
{
MessageBox (NULL, "Connecting To Database was failed", "Message", MB_OK MB_ICONEXCLAMATION MB_SYSTEMMODAL);
}

else
{
sprintf(query,"Select * from User where UserName = '%s'",s);

grs->Open(query, gcn,1);
Count=grs->RecordCount;
if( Count>0)
{

grs->MoveFirst();
SetTagChar("NewTag_1",grs->Fields(2));

}

grs->Close();
}
gcn->Close();
}
__object_delete(gcn);
__object_delete(grs);