Пытаюсь создать процедуру в 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

2Senin Viktor:
А что получается когда в самом Accesse создаёшь запрос, а затем его сохраняешь? При мона делать не только запросы на выборку данных, но также на добавление, удаление и т.д.. И при этом их можно вызывать именно как StoredProc.

2Хам трамвайный:
Вы похоже не поняли задачу. Требуется не выполнить процедуру в которой есть параметры, а её создать.

Я сделал это :)
Хотя предыдущий код сделан в согласии с MSDN, он не работает.
Работающий код приведён ниже:
Var
cmd : Variant; //ADODB.Command
cat : Variant; //ADOX.Catalog
begin
try
cmd := CreateOleObject('ADODB.Command');
cat := CreateOleObject('ADOX.Catalog.2.7');
try
cmd.CommandText := 'PARAMETERS [CustId] integer; '+
'Select * From Customers Where CustomerId = [CustId]';
cat.ActiveConnection := 'Provider=''Microsoft.Jet.OLEDB.4.0'';Data Source=''c:\mydb.mdb''';
cat.Procedures.Append('CustomerById',cmd);
finally
cmd := Unassigned;
cat := Unassigned;
end;
except
on E: Exception do raise;
end;