Dim oADO As Object
 
  ' Prüfen, ob ADO 2.7 installiert ist
  On Error Resume Next
  Set oADO = CreateObject("ADODB.Connection.2.7")
  If Err.Number = 0 Then
    MsgBox "ADO 2.7 ist installiert."
  Else
    MsgBox "ADO 2.7 ist nicht installiert."
  End If
  On Error GoTo 0

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de