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