I have the following code in an Event Procedure in a "on Current" part of the
form.
I have two datasheets, one a subform of another where I select an item on
the first datasheet and information is shown on that item in the second
datasheet.

I want to add a third datasheet and also changes when I select an item in
the first datasheet.  

I don't know how to write this code but need to add that third datasheet
(called RFI Subform) into this code.

Can someone help me out with this?

Thanks, code is shown below

Sub Form_Current()

   Dim ParentDocName As String

   On Error Resume Next
   ParentDocName = Me.Parent.Name

   If Err <> 0 Then
       GoTo Form_Current_Exit
   Else
       On Error GoTo Form_Current_Err
       Me.Parent![Submittal Subform].Requery
   End If

Form_Current_Exit:
   Exit Sub

Form_Current_Err:
   MsgBox Error$
   Resume Form_Current_Exit

End Sub