Access y VBA - Envio de correo Outlook

Utilizo este código para enviar correo:

Sub EnviarCorreoConAdjunto()

Dim vDest As String 'Variable con el valor del campo Mail

Dim Olk As Outlook.Application

Set Olk = CreateObject("Outlook.Application")

vDest = ApCorreo

'Creamos un nuevo mensaje de Outlook

Dim OlkMsg As Outlook.MailItem

Set OlkMsg = Olk.CreateItem(olMailItem)

'Creamos la información del mail

With OlkMsg

'Definimos los elementos del mail

Dim OlkDestinatario As Outlook.Recipient 'Destinatario

Set OlkDestinatario = .Recipients.Add(vDest)

OlkDestinatario.Type = olTo

.Subject = "Mayor contable" 'Asunto

.HTMLBody = "<HTML> " & _

"<BODY>" & _

"<P>" & "<IMG SRC = 'C:\temp\BaseFirmasCorreo.png'>" & "</P>" & _

"</BODY> " & _

"</HTML>"

.Attachments.Add ApArchivoAdjunto

.Display

End With

'Eliminamos la instancia

Set Olk = Nothing

Set OlkMsg = Nothing

Set OlkDestinatario = Nothing

End Sub

El problema que tengo es que ..."Outlook se cuelga"... dejando el mensaje en el SO: ..."Otro programa está usando Outlook." ....