Hey LeonardIn your main form when you call the child form set up a parameter to pass.
Private
 Sub AddRecordCode()Dim LocSiteID As Integer
LocSiteID = Whatever
Call BO.Edit
 If Me.Childform.ShowDialog(LocSiteID) = Windows.Forms.DialogResult.OK Then
                '-- Refresh the Grid
Else
End Sub
-----------------------------------------------------------
Your Childform can get the parameter 
Pass the parameter through the form
Public Sub New(ByVal LocSiteID As Integer)
Your Param = LocSiteID
End
 Class