Kod:
Function kullanıcı()
Dim rs As New ADODB.Recordset
rs.Open "AD", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("AD") = AD.Value
rs.Update
Set rs = Nothing
End FunctionKod:
call kullanıcıFunction kullanıcı()
Dim rs As New ADODB.Recordset
rs.Open "AD", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("AD") = AD.Value
rs.Update
Set rs = Nothing
End Functioncall kullanıcı