紧急求助，ADO数据库取表名的问题

var
myl:TStringlist;
mydb:Variant;
begin
myl:=TStringList.Create;
mydb:=CreateOleObject('ADODB.Connection');
mydb.Open('Driver={Microsoft access Driver (*.mdb)};DBQ='+ExtractFilePath(Application.ExeName)+'DATA');
mydb.GetTableNames(myl,false);
mydb.close;
end;
我用以上语句取表名，报错“type not allowed in ole automation call”，原因何在？