Dim db As Database
Dim rs As DAO.Recordset
Dim SQL As String
Set db = CurrentDb
SQL = "SELECT * FROM tblProdaja WHERE OrderID='" & OrderID & "'"
Set rs = db.OpenRecordset(SQL, dbOpenDynaset)

' neki kod i onda

With rs
.Edit
rs!ZKI = ZKI
rs!JIR = JIR
.Update
End With