Criação de Banco de Dados access em Tempo de Execução

  KADaoDatabase1.CreateAccessDatabase(´C:\Teste.mdb´); //usar TKADaoDatabase 
  ADOConnection1.ConnectionString := 
  ´Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Teste.mdb;´ + 
  ´Persist Security Info=False´; 
  ADOConnection1.LoginPrompt := False; 
  ADOConnection1.Connected := True; 
  try 
    ADOConnection1.Execute( 
      ´CREATE TABLE TABELA (CAMPO INTEGER PRIMARY KEY, CAMPO2 INTEGER)´); 
  finally 
    ADOConnection1.Connected := False; 
  end;