I have an issue using web browser control for google map on a form. 

In next environment:  Runing MS Access from Microsoft 365 apps for business.

On pc with W10 64

Web browser Version 120.0.6099.130 (Official Build) (64-bit)

Microsoft Edge Version 120.0.2210.91 (Official build) (64-bit)

On a form( frmCustomer)  in  load event to suppress error msg I have this part of code :

 Private Sub Form_Load()

Me.WB_Map.Object.Silent = True

End Sub

In a module I have a function ( fAppendString ) that doing append address string and is working without any issue:

On the form frmCustomer there are several text boxes with client address info and web browser control which I want to  use to show google map on the form.

On form current event I have code below.

When I open form or move to next record on form code run and it shows properly google map in control and after a secund or two map disappeared  and inside control shows another google screen,  one I  attached here.

Not sure what is happening I did adjust my registry entry to: 

(HKey_Local_Machine\Software\Wow6432Node\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION) to prowin.exe = 12001 

(HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\INTERNET EXPLORER\MAIN\FEATURECONTROL\FEATURE_BROWSER_EMULATION) = Msaccess.exe = 12001

 but still showing the same result. 

Private Sub Form_Current()

    On Error GoTo Error_Handler

    Dim sAddr  As String

    Dim sURL   As String

    sAddr = fAppendString(sAddr, Me.txtStreetNumber, "")

    sAddr = fAppendString(sAddr, Me.txtStreet, " ")

    sAddr = fAppendString(sAddr, Me.txtCity)

    sAddr = fAppendString(sAddr, Me.txtProvince_State)

    sAddr = fAppendString(sAddr, Replace(Nz(Me.txtPostal_Code_Zip, ""), " ", ""))

    sAddr = fAppendString(sAddr, Me.txtCountry)

    If sAddr <> vbNullString Then

        sAddr = Replace(sAddr, " ", "+")

        sURL = "https://maps.google.ca/maps?q="

        sURL = sURL & sAddr & "&hl=en"

        Me.URL = sURL

         Me.WB_Map.ControlSource = "=""" & sURL & """"

        DoEvents

    Else

         Me.WB_Map.ControlSource = "=""about:blank"""

    End If 

Error_Handler_Exit:

    On Error Resume Next

    Exit Sub

Error_Handler:

    MsgBox "The following error has occurred." & vbCrLf & vbCrLf & _

           "Error Number: " & Err.Number & vbCrLf & _

           "Error Source: Form_Current" & vbCrLf & _

           "Error Description: " & Err.Description, _

           vbCritical, "An Error has Occurred!"

    Resume Error_Handler_Exit

End Sub