Je nainstalovßno ADO ?
Funkce:
Function
GetAdoVersion() As String
'Vracφ
prßzdn² °et∞zec, pokud nenφ ADO nainstalovßno
'Pokud je nainstalovßno, vracφ jeho verzi
Dim o As Object
On
Error Resume Next
Set o = CreateObject("ADODB.Connection")
If Err.Number = 0 then
GetAdoVersion = o.Version
Else
'ADO
nenφ nainstalovßno
End
If
End Function