You first have to set its verb property and then activate it. This assumes you are using a form.


[vba]Private Sub Doc_Click()

'Where Doc is the name of your control
Doc.Verb = acOLEVerbOpen

Doc.Action = acOLEActivate

End Sub[/vba]