Tony here's a click event that will show a Mapquest map...
Private Sub cmdMap_Click()
Dim strParam As String
Dim strPre As String
Dim strSuf As String
Dim strLink As String
Dim addr1Work As String
addr1Work = Replace(myADDR1, " ", "+")
strPre = "
http://www.mapquest.com/maps/map.adp?"
strSuf = "&country=US&cid=lfmaplink"
strParam = "address=" & addr1Work & "&City=" & myCITY & "&state=" & myST
& "&zipcode=" & mytxtZipAlias
strLink = strPre & strParam & strSuf
'Debug.Print strLink
Me.cmdMap.HyperlinkAddress = strLink
End Sub
Replace all the myxxxxxxxx with your fieldnames...
HTH, UpRider