在MS Access中使用VBA获取MySQL新添加的AutoID

Function GetLastInsertedID() As Long
    Dim conn As Object
    Dim rs As Object
    Dim strSQL As String
    Dim lastID As Long
    
    ' 创建MySQL连接
    Set conn = CreateObject("ADODB.Connection")
    conn.ConnectionString = "DRIVER={MySQL ODBC 8.0 Unicode Driver};SERVER=服务器地址;DATABASE=数据库名;UID=用户名;PWD=密码;"
    conn.Open
    
    ' 执行查询获取最后插入的AutoID
    strSQL = "SELECT LAST_INSERT_ID() AS LastID;"
    Set rs = conn.Execute(strSQL)
    
    ' 读取结果
    lastID = rs.Fields("LastID").Value
    
    ' 关闭连接
    rs.Close
    conn.Close
    
    ' 返回最后插入的AutoID
    GetLastInsertedID = lastID
End Function

Private Sub btnGetLastID_Click()
    Dim lastID As Long
    
    lastID = GetLastInsertedID()
    
    MsgBox "最后插入的AutoID为：" & lastID
End Sub