Kod:
Dim rs As New ADODB.Recordset
rs.Open "SIRKETTANIMLAMAEKRANI", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.MoveLast
rs("SIRKET") = AD.Value
rs.Update
Set rs = Nothing
Dim rs As New ADODB.Recordset
rs.Open "SIRKETTANIMLAMAEKRANI", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.MoveLast
rs("SIRKET") = AD.Value
rs.Update
Set rs = Nothing