Error in Access VBA Application when upgrading from Acrobat 8.0 to 9.0

Question

Hello.
The company that I work for recently upgraded from Adobe Acrobat 8.0 to 9.0 and I`m experiencing some problems with my Access 2003 VBA Application that extracts text from PDF-files and insert it into a table. I have tried adding references to Adobe 9.0 Type Library, but still no luck. Anyone having any ideas for a workaround? See attatched image for error-message. Any help will be greatly appreciated!
Regards,
Steffan

Answer 1

Public Function lesPDF()
'On Error Resume Next
Dim MyDB As Database, EplanSet As DAO.Recordset, ResultSet As DAO.Recordset, SideSet As DAO.Recordset, TekstSet As DAO.Recordset
Dim AcroApp As CAcroApp
Dim AcroAVDoc As CAcroAVDoc
Dim AcroPDDoc As CAcroPDDoc
Dim AcroHiliteList As CAcroHiliteList
Dim AcroTextSelect As CAcroPDTextSelect
Dim PageNumber, PageContent, i, j
Dim Ferdig As Boolean
Dim StartPos, Length As Double
Dim PartSyntax() As String
Dim DocType() As String
Dim Content, strFileName, Temp As String
Dim k, Lengde As Integer
Plant = Form_Autoexec.cmbPlant.Value
Set AcroApp = CreateObject("AcroExch.App")
Set AcroAVDoc = CreateObject("AcroExch.AVDoc")
Set MyDB = DBEngine.Workspaces(0).Databases(0)
EplanSet.MoveLast
EplanSet.MoveFirst
Do Until EplanSet.EOF
    strFileName = EplanSet!path & EplanSet!File
    If AcroAVDoc.Open(strFileName, vbNull) <> True Then
        Exit Function
    End If
    Set AcroAVDoc = AcroApp.GetActiveDoc
    Set AcroPDDoc = AcroAVDoc.GetPDDoc
Here is some of the code, where the program stops is marked in red. This worked perfectly with Adobe 8.0. Thaks for any help or suggestions!