aprire sql server da vba

[borgodiavalon]

è da molto che non collego excel ad un database.
prova questo:

Dim cn As Object
Dim sh As Worksheet

Set cn = CreateObject("ADODB.Connection")
Set sh = Worksheets("Foglio1")

cn.Open "tabella", "Provider=SQL NATIVE CLIENT;" & "Server=\SQLEXPRESS;" & "Database=nominativi;" & "Trusted_Connection=yes;" 'apro conessione diretta alla tabella

cn.AddNew
cn("cognome") = sh.Range("A1").Value
cn.Update

in caso di errore dimmi in che punto lo fa.