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