Programmatically check for version of ADO ext 2.7 or 2.8

[tburrows]

I'm running access 2002 which has ADO Ext 2.8 for DDL & Security. Most of the machines which run the applications I do are running access 2000 with ADO Ext 2.7. What I'm doing now is that when I load a new application I get an error message and I have to go in and uncheck the missing 2.8 and check to use 2.7.

What I'm looking for is a programmatically way to do this.

Thanks

 

[PHV]

Take a look here:

http://www.tek-tips.com/viewthread.cfm?qid=903662

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[VBslammer]

Function FixADOVersion() As Boolean
On Error GoTo ErrHandler
  If Dir(References("ADODB").FullPath) <> "" Then
    FixADOVersion = True
  Else
    References.Remove References("ADODB")
    References.AddFromGuid "{EF53050B-882E-4776-B643-EDA472E8E3F2}", 2, 7
    FixADOVersion = True
  End If
ExitHere:
  Exit Function
ErrHandler:
  Resume ExitHere
End Function

VBSlammer

"You just have to know which screws to turn." - Professor Bob

 

[VBslammer]

You did say DDL and Security:

Function FixADOXVersion() As Boolean
On Error GoTo ErrHandler
  If Dir(References("ADOX").FullPath) <> "" Then
    FixADOXVersion = True
  Else
    References.Remove References("ADOX")
    References.AddFromGuid "{00000600-0000-0010-8000-00AA006D2EA4}", 2, 7
    FixADOXVersion = True
  End If
ExitHere:
  Exit Function
ErrHandler:
  Resume ExitHere
End Function

VBSlammer

"You just have to know which screws to turn." - Professor Bob