Obtener ClaveMaestra del registro insertado.

[jplj]

Bien por lo que dice Roman algo debo estar haciendo mal.

Acabo de hacer nuevamente la prueba con el código siguiente:

Código Delphi [-]
procedure TForm1.Button5Click(Sender: TObject);
var
   k: Real;
begin
   ADOTable1.Append;
   ADOTable1Numero.AsInteger:= 1000;
   ADOTable1Nombre.AsString:= 'Número : ' +IntToStr(1000);
   ADOTable1.Post;
   k:= ADOTable1Id.AsFloat;
   MessageDlg('Id registro insertado: ' + FloatToStr(k), mtInformation,  
                    mbOk], 0);
end;

Y el valor de de k es siempre cero.

La cadena de conexión es:

Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;
Data Source=E:\Documents and Settings\casa\Mis 
Documentos\Trabajo\Estudio_ADO\bd2.mdb;
Mode=Share Deny None;Extended Properties="";
Jet OLEDB:System database="";Jet OLEDB:Registry Path="";
Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=4;
Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;
Jet OLEDB:Global Bulk Transactions=1;
Jet OLEDB:New Database Password="";
Jet OLEDB:Create System Database=False;
Jet OLEDB:Encrypt Database=False;
Jet OLEDB:Don't Copy Locale on Compact=False;
Jet OLEDB:Compact Without Replica Repair=False;
Jet OLEDB:SFP=False

Utilizo Acces 97 y Delphi 7.

¿dónde está el error?