[5分]求用ACCESS清空粘贴板的语句

'清空系统剪贴板
Dim MyData As DataObject

Set MyData = New DataObject
MyData.SetText ""
MyData.PutInClipboard

'获取系统剪贴板数据

Dim MyData As DataObject
Dim strClip As String

Set MyData = New DataObject
MyData.GetFromClipboard
strClip = MyData.GetText