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