C
callramesh
if the machine has ADO then this should work ..
Function GetAdoVersion
'Returns an empty string if ADO is not installed
Dim o
On Error Resume Next
Set o = CreateObject("ADODB.Connection")
If Err.Number = 0 then
GetAdoVersion = o.Version
Else
GetAdoVersion = " Sorry !! ADO is not installed."
End If
End Function
msgbox "MDAC version is : " & GetAdoVersion
Function GetAdoVersion
'Returns an empty string if ADO is not installed
Dim o
On Error Resume Next
Set o = CreateObject("ADODB.Connection")
If Err.Number = 0 then
GetAdoVersion = o.Version
Else
GetAdoVersion = " Sorry !! ADO is not installed."
End If
End Function
msgbox "MDAC version is : " & GetAdoVersion