Verificando se a ADO esta instalada.

Você pode verificar via código se a ADO ( MDAC ) esta instalada em seu computador.

1- Inicie um novo projeto no VB e insira um botão de comando no formulário padrão

2- Insira o seguinte código no evento Click do botão de comando - command1 . O código invoca a função AdoVersao que

Private Sub Command1_Click()
If AdoVersao <> "" Then
   MsgBox "A versão da ADO instalada é a versão : " & AdoVersao, vbInformation, "Versão ADO"
Else
  MsgBox "A ADO não esta instalada na sua maquina.", vbInformation, "Versão ADO"
End If
End Sub

3- O código da função AdoVersao é o seguinte:

Function AdoVersao() As String
Dim o As Object

On Error Resume Next
Set o = CreateObject("ADODB.Connection")

If Err.Number = 0 Then
  AdoVersao = o.Version
Else
  AdoVersao = ""
End If
End Function

Perceba que não fizemos uma referência a biblioteca ADO , pois estamos usando método CreateObject.

Se a ADO não estiver instalada o objeto o irá retornar uma string vazia.

Até a próxima...