OLD DAO project

[sal21]

Sub TEST1()

Dim Rs As DAO.Recordset, db2 As DAO.Database, sConnect As String
'Set ws = CreateWorkspace("ODBCWorkspace", "", "", dbUseODBC)

sConnect = "PROVIDER = MSDASQL;driver={SQL Server};Server=12.34.567.8;Database=keystore2;UID=sa;PWD=tttttttttt;OPTION=3;"

Set db2 = OpenDatabase("", False, False, sConnect)

' Rs.Close
Set Rs = db2.OpenRecordset("SELECT * FROM CLIENTI", dbOpenDynaset)

'Rs.MoveFirst
'Rs.MoveLast

Rs.FindFirst "CODICE ='100'"

Rs.Edit
Rs("RAG_SOC") = "PIPPO"
Rs.Update '->>>>>>>> ERROR

End Sub