aprire sql server da vba

[tigre2209]

Ho provato cosi:

Dim cn As Object
Dim rs As Recordset

Dim sh As Worksheet
Dim sSQL As String

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

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

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

e mi da errore:

Errore di automazione;
Errore non specificato;