aprire sql server da vba

[tigre2209]

ho fatto cosi ma non va
With cn
sSQL = "select * from tabella"
.CursorLocation = 1
.Open "Provider=SQL NATIVE CLIENT;" & "Server=\SQLEXPRESS;" & "Database=nominativi;" & "Trusted_Connection=yes;"
.Execute sSQL, , , 1

End With

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