Conectando o SQL Server 2008 Express via VBA

Bem simples a conexão por ADO ao SQL Server Express 2008.
Uma vez conectado, nada muda no resto da programação.

Option Compare Database
Option Explicit

 

Sub teste_sql()

 

    Dim cnn As New ADODB.Connection
          
    cnn.Open "Provider=SQLNCLI10.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=base_teste;Data Source=pkazu\sql_express_2008"
   
    cnn.Execute "DELETE FROM TABELA1"

 

    cnn.Close

 

End Sub