La Web del Programador: Comunidad de Programadores
 
    Pregunta:  15388 - ERROR ! SERVIDOR OLE NO INSTALADO
Autor:  diego balestrini
Tengo una aplicacion que inserta objetos desde otras aplicaciones en un campo ole.
En algunas máquinas donde lo instalo, me sale el error, EL SERVIDOR OLE NO SE ENCUENTRA, CIERRE ACCESS ACTIVELO Y VUELVA A EJECUTAR.
no ncuentro ayuda sobre esto, pero creo que el problema pasa por windows 98

Gracias

  Respuesta:  Miguel Arguedas
Diego, en mi opinión prodría se que se encuentra pegado el servicio OLE. Entonces puedes crear un Sub que la cierre: ApplicAccess.CloseCurrentDatabase... o lo que tengas abierto. Para abrirlo debiste haber utilizado algo como esto supongo:

Dim applicAccess As New Access.Application

Sub OpenWhatever()
' Indicar la ruta
Const Whatever = "c:\Whatever.mdb"

' Abrir Whatever.
applicAccess.OpenCurrentDatabase Whatever

' Hacer visible Whatever, si es necesario.
applicAccess.Visible = True

' Hacer tu operación, etc
xxx
End Sub

Mucha suerte.