ADO连接MSSQLSERVER2000程序

function adothread(param: pointer): integer; stdcall;
var
con, cmd : variant;
begin
coinitialize(nil);
con := getnewconnection(...);
if varisempty(con) then
begin
//未连接上，退出
exit;
end eles
cmd := getnewcommand(con)
while bterminate do
begin
if varisempty(con) then
//连接失败 退出
exit
else
sleep(1000);
end;
closeconnection(con); //自定义的关闭函数。 其实测试时，
cmd := unassigned;
couninitialize;
result := 0;
end;