sPathNameStr:='x:\xxx\xxx.mdb'
  if not FileExists(sPathNameStr) then
  begin
    cat := CreateOleObject('ADOX.Catalog');
    cat.Create(Format(AdoString,[sPathNameStr]));
  end;
请帮我关注http://www.csdn.net/Expert/topic/495/495470.shtm
这也是你也感兴趣的内容。多多UP。