Originariamente inviato da tigre2209
ho provato cosi:
Sub SALVA()
Dim cn As Object
Dim sh As Worksheet
Set cn = CreateObject("ADODB.Connection")
Set sh = Worksheets("Foglio1")
Sql = "select * from dipendenti"
cn.Open Sql, "Provider=SQL NATIVE CLIENT;" & "Server=SQLEXPRESS;" & "Database=archivio;" & "Trusted_Connection=yes;" 'apro conessione diretta alla tabella
cn.AddNew
cn("cognome") = sh.Range("A1").Value
cn.Update
End Sub

mi da errore "DI AUTOMAZIONE, ERRORE NON SPECIFICATO"
secondo me l'errore è nelle righe che ti ho segnato in rosso.
nel post precedente ti avevo scritto:
codice:
cn.Open "tabella", "Provider=SQL NATIVE CLIENT;" & "Server=\SQLEXPRESS;" & "Database=nominativi;" & "Trusted_Connection=yes;" 'apro conessione diretta alla tabella
dove al posto delle scritte verdi metti i tuoi riferimenti. gli altri riferimento (provider, server suppongo siano già i tuoi corretti)

se non va così vediamo che errore di riporta e poi vediamo se posso risolverlo o se dobbiamo aspettare altri utenti.

edit: ricordati di modificare anche il riferimento al foglio di excel che nel codice è ancora foglio1 e alle celle in cui hai i dati (il range).