Conexão ADO

Bom dia Mestres...

Gostaria de saber um pouco mais sobre a conexão ADO, para que serve? Para deixar o BD mais rápido?

Tentei adaptar esse código para gerar um DataBase. Porém da erro na segunda linha:

  Dim cat As ADOX.Catalog

Código:

Código:

' you must make sure that a reference to
' Microsoft ADO Ext. 2.5 for DDL and Security
' Object Library is set in the References dialog box

Sub CreateI_NewDatabase()
   Dim cat As ADOX.Catalog
   Dim strDb As String

   Set cat = New ADOX.Catalog
   strDb = "C:\07 - CaioFabio\teste.accdb"

   On Error GoTo ErrorHandler
   cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
       "Data Source=" & strDb
   MsgBox "The database was created (" & strDb & ")."
   Set cat = Nothing
   Exit Sub

ErrorHandler:
   If Err.Number = -2147217897 Then
      Kill strDb
      Resume 0
   Else
      MsgBox Err.Number & ": " & Err.Description
   End If
End Sub

Tal como está escrito no código, tem de ativar a referencia VBA "Microsoft ADO Ext. 2.X for DDL and Security"

https://www.maximoaccess.com/t14471-escolher-entre-dao-e-ado

Ativei as referências necessárias. E o erro foi sanado.

Agora esta exibindo a seguinte mensagem:

-2147221164: Classe não registrada

Qual a versão do seu office ?

Qual a referencia VBA você setou ?

Onde está a correr o código, no VBA de um form, ou num módulo ?

Esse erro -2147221164, não me parece do Ms Access

Office 2010
usei a Microsoft ADO Ext. 2.8 for DDL and Security, a 2.5 como pedido no código não tem
Código esta em um módulo


Acho que essa parte explica bem, se o erro é do access ou não. Aparentemente o código fornece um tratamento de erro se for -2147217897, caso contrário traga a descrição do erro.

Veja:

Código:

ErrorHandler:
  If Err.Number = -2147217897 Then
      Kill strDb
      Resume 0
  Else
      MsgBox Err.Number & ": " & Err.Description
  End If

Por acaso não explica se o erro é no access ou não, porque também se usa no VB com as mesmas referencias. (VB5 ou VB6)

O erro me parece provavelmete porque não encontra a DDL.

Veja esse artigo:
https://support.microsoft.com/pt-br/kb/2734304

Tentei, porém o erro persiste.