прокатит.
смотря с какой горы

как же достало
копировать
и вставлять.
купи Гетца
Dim cnx As ADODB.Connection
Dim cmd As ADODB.Command
Dim rst As ADODB.Recordset

Set cnx = CurrentProject.Connection
Set cmd = New ADODB.Command

Set cmd.ActiveConnection = cnx
cmd.CommandType = adCmdText
cmd.CommandText = "INSERT INTO tblNewOrder2 " & _
"(ItemId, Quantity) VALUES (1, 20)"

cmd.Execute
Set cmd = Nothing

Set rst = New ADODB.Recordset
rst.Open "SELECT @@IDENTITY AS LastOrderId", _
cnx, Options:=adCmdText
Debug.Print "OrderId for new record = " & _
rst("LastOrderId")
rst.Close
Set rst = Nothing