Dim cn As New ADODB.Connection
Dim rst As ADODB.Recordset
Dim ssql As String
Set cn = CurrentProject.Connection
Set rst = New ADODB.Recordset
Set rst.ActiveConnection = cn
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Source = "tbl_1"
rst.Open Options:=adCmdTable
With rst
.Find "[fkey] = " & Me.ID
.Fields("pole_1") = value_1
.Fields("pole_2") = value_4
.Fields("pole_n") = value_3
.UPDATE
End With
rst.Close
Set rst = Nothing
cn.Close
Set cn = Nothing