VBA,完整代码
Dim cnn As New ADODB.Connection
Dim rst As ADODB.Recordset
Set cnn = CurrentProject.Connection
Set rst = New ADODB.Recordset
cnn.Execute ("insert into 表1(aaa) values(9)")
rst.Open "SELECT @@IDENTITY AS LastOrderId", cnn, adCmdText
MsgBox rst(0)
用ADO连接MDB,XX为自动编号
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cnn = CurrentProject.Connection
Set rst = New ADODB.Recordset
rst.Open "SELECT @@IDENTITY AS LastOrderId", _
cnn,
Options:=adCmdText
LastOrderId即为最新的ID,至于怎样在NET中实现,请到相应的语言版块去问吧