SHAREPOINT LIST - @@ IDENTITY - VBA

Question

我正在尝试检索SHAREPOINT列表中新插入项的ID。 ID是列表中的自动编号字段。

添加，更新，删除列表中的记录正在运行。 但是，@@IDENTITY query始终返回0.

SELECT MAX(ID)方法不起作用，有时会获得之前添加的记录ID

我怀疑@@IDENTITY不适用于Sharepoint列表。欢迎提出任何建议

由于

Dim con as new ADODB.connection
Dim cmd As New ADODB.Command
Dim rec as New ADODB.recordset

con.ConnectionString= "Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=0;RetrieveIds=Yes;DATABASE=" & MYDATABASE & ";LIST={" & MYLIST & "};"

con.open
cmd.ActiveConnection = con
cmd.CommandText = "INSERT INTO MYLIST (NAME) VALUES ('MYNAME')"
cmd.Execute

rec.Open "SELECT @@IDENTITY AS NEWID FROM MYLIST", con, adOpenKeyset, adLockOptimistic

NewItemID=rec.fields("NEWID").value
'NewItemID is always 0