In this case we are on the Subform and want to update on the Parent so we can use the Parent keyword.
Form_Current()
Private Sub Form_Current()
MsgBox ID
Dim strURL
strURL = "https://www.google.co.uk/?q=" & ID
Me.Parent.URL = strURL
Me.Parent.WebBrowser1.Object.Navigate strURL
End Sub