如何使用vb6.0获取Ms Access中的最后一个插入ID

Question

我正在使用VB6.0进行作业，所以用了很长时间。我正在尝试获取最后插入的ID。我的查询是给我第一行ID

我正在使用OLEDB。我使用了一些代码，但它返回的是第一行ID。

Network
    rec.Open "staff_profile", con, adOpenDynamic, adLockOptimistic
    With rec
    .AddNew
      ![fields] = values
    .Save
      'rec.Update
  lastID = rec("ID")
  FileCopy frmRegister.cdl.FileName, fname & transcode & ".jpg"
    'return ID
    MsgBox "Record Saved Successfully " & lastID, vbInformation, "Trillium"

我希望结果给我最后插入的ID

Answer 1

尝试：

With rec
    .AddNew
      ![fields] = values
    .Save
    .MoveLast
    lastID = !ID.Value
End With