Slå op funktion

Dim i As Integer
i = 5
With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.vare.dk/search.aspx?sort=postnr-a&max=60&type=El&page=2&q=" _
        , Destination:=Range("A1"))

Hvorfor vil den ikke virke med page som " & CStr(i)

Dim i As Integer
i = 5
With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.vare.dk/search.aspx?sort=postnr-a&max=60&type=El&page=" & CStr(i)&q=" _
        , Destination:=Range("A1"))

Den vil selv sætte et " her page=" & CStr(i)&q="" _

Da den selv vil sætte et " ja så må det være her der er noget galt ?
Stor help ønskes