error 2448; I'm having problem displaying data from one form on another using a txt box

[RLehrbass]

I'm simply trying to display the data from an open form named frmEventInput fields: [EventName] and [Description]
on a new form that includes 2 text boxes with the control sources and names: [txtEventName] and [txtDescription]
It says Error 2448, You can't assign a value to this object! what am I doing this wrong?

Private Sub Form_Load()
Dim LResponse As Integer

LResponse = MsgBox("Do you wish to open 'Event Participant Registration Form'?", vbYesNo, "Continue")

If LResponse = vbYes Then
DoCmd.GoToRecord , , acNewRec

Me!EntryDate = Date
Me!txtEventName = Forms![frmEventInput]![EventName]
Me!txtDescription = Forms![frmEventInput]![Description]
Me!EventID = Forms![frmEventInput]![ID]

Else
DoCmd.Close



End If

End Sub

[RLehrbass]

Just had to remove control source.