Closing form and sending data to table

[John]

I have a confidentiality form that has a confidentiality
statement on it. There is a subform also there that
captures the persons network signon name and also displays
the date and time they opened the database. I am having a
problem writing the signon info back to a table when the
person agrees to the confidentiality statement. There are
two buttons, one agree, the other disagree.
If they agree then it opens another form to do work, if
they disagree then it closes them out of the application.
How do I code it also so that when they click Agree it
will close that form and still open my other form to start
working? Below is my code for the confidentiality form.
Please help and thank you in advance.

John
Begin Code:------------
Option Compare Database
Option Explicit
Dim stDocName As String
Dim stLinkCriteria As String

Private Sub agreement_button_Click()
On Error GoTo Err_agreement_button_Click

stDocName = "frmMainEntry"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_agreement_button_Click:
Exit Sub

Err_agreement_button_Click:
MsgBox Err.description
Resume Exit_agreement_button_Click

End Sub
Private Sub disagree_button_Click()
On Error GoTo Err_disagree_button_Click

DoCmd.Close

Exit_disagree_button_Click:
Exit Sub

Err_disagree_button_Click:
MsgBox Err.description
Resume Exit_disagree_button_Click

End Sub

End Code:-------------