在MS Access中SQL插入后在消息框中引用新创建的id

INSERT INTO 表名 (字段1, 字段2, ...) VALUES (值1, 值2, ...);

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim newID As Long

' 创建数据库对象
Set db = CurrentDb()

' 构建SQL插入语句
strSQL = "INSERT INTO 表名 (字段1, 字段2) VALUES ('值1', '值2');"

' 执行SQL插入语句
db.Execute strSQL

' 获取新创建的ID
Set rs = db.OpenRecordset("SELECT @@IDENTITY;")
newID = rs.Fields(0).Value
rs.Close

' 引用新创建的ID到消息框中
MsgBox "新创建的ID是：" & newID