VB取得下个自动生成的 ID

在许多数据库里我们使用了自动增加的 ID， 能取得下个自动产生的 ID， 意味着在数据增加后， 不再需要使用 LastModified 属性和 bookmarks。
With Data1.Recordset
    .AddNew
    MsgBox !ID  '下个自动生成的 ID
    .CancelUpdate
End With