I was wondering if anyone could give a little guidance on the VBA code I have below. The intent is to have a query 'Audits' call up addresses and then place their markers in google maps. I have it working my only problem is that it is opening up google maps for each record rather than placing markers for each record in a single map. Any help would be greatly appreciated. The code I have is

Private Sub Command38_Click()
    
    Dim strDetailAddress As String
    Dim strGmaps As String
    Dim db As Database
    Dim rs As Recordset
    
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("Audits", dbOpenDynaset)
    
    While Not rs.EOF
    
        strDetailAddress = Me.StreetAddress & " " & Me.[City/County] & " " & Me.[Zip Code]
        strGmaps = http://maps.google.com/maps?h1=en&q= & strDetailAddress
        CreateObject("Shell.Application").Open CVar(strGmaps)
        
    rs.MoveNext
        
        Wend
        Set rs = Nothing
        Set db = Nothing
    
End Sub