Пытаюсь создать процедуру в Access из Delphi посредством ADO, но ничего не получается. Exception происходит в момент присваивания cat.ActiveConnection := cnn; Чего делать?

Var
cnn : Variant; //ADODB.Connection
cmd : Variant; //ADODB.Command
cat : Variant; //ADOX.Catalog
begin
try
cnn := CreateOleObject('ADODB.Connection');
cmd := CreateOleObject('ADODB.Command');
cat := CreateOleObject('ADOX.Catalog.2.7');
try
cnn.Open('Provider=''Microsoft.Jet.OLEDB.4.0'';Data Source=''c:\mydb.mdb''');
cmd.ActiveConnection := cnn;
cmd.CommandText := 'PARAMETERS [CustId] integer; '+
'Select * From Customers Where CustomerId = [CustId]';
cat.ActiveConnection := cnn;
cat.Procedures.Append('CustomerById',cmd);
cnn.Close;
finally
cnn := Unassigned;
cmd := Unassigned;
cat := Unassigned;
end;
except
on E: Exception do raise;
end;
end;

With best regards Alex Majorov