Dim oADO As Object
 
On Error Resume Next  
Set oADO = CreateObject("ADODB.Recordset.2.5")
If Err.Number <> 0 Then MsgBox "ADO 2.5 ist nicht installiert!
Set oADO = Nothing
On Error Goto 0

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de