Dim rst As ADODB.Recordset 
　　Dim cn As ADODB.Connection 
　　 
　　Set cn = CodeProject.Connection 
　　 
　　' 开始数据库的事务 
　　cn.BeginTrans 
　　 
　　' 打开一个新的记录集 
　　Set rst = New ADODB.Recordset 
　　With rst 
　　　　Set .ActiveConnection = cn 
　　　　 
　　　　' 以键集开放锁打表 GUID 表 
　　　　.Open "usysGUID", , adOpenKeyset, adLockOptimistic 
　　　　' 新增记录 
　　　　.AddNew 
　　　　' 向表中的 GuidStr 字段写入数据 
　　　　.Fields("GuidStr") = "s" 
　　　　' 更新，此时在表中产生了一新的唯一的 GUID 值 
　　　　.Update 
　　　　' 重新获取数据 
　　　　.Requery 
　　　　' 返回记录中的 GUID 值并转换成字符 
　　　　GetGUIDString = StringFromGUID(.Fields("GUID")) 
　　End With 
　　 
　　' 关闭记录集，释放 rst 对象 
　　Set rst = Nothing 
　　' 结束事务并取消上述对数据库的操作 
　　cn.RollbackTrans 
　　' 释放连接对象 cn 
　　Set cn = Nothing 
　　GetGUIDString = Mid(GetGUIDString, 2, Len(GetGUIDString) - 2) 
End Function