io faccio così e setto già la cursorlocation:

Public conn As New ADODB.Connection

conn.CursorLocation = adUseServer
stringa_connect="DATABASE="+db_ric+;UID="&user";PW D="&password";DSN="&nome_dsn

conn.ConnectionString = stringa_connect
conn.CommandTimeout = 60
conn.Open
Set rs = New ADODB.Recordset

sql = "update [tabella] set mese" + mese + "_dare =" + dati(5) + ",mese" + ... " where codice=" + dati(2)
conn.Execute sql, no_rec_modif
If no_rec_modif = 0 Then
sql = "insert into [tabella] (...)" + "values(...)"
conn.Execute sql
End If