import data- query

[ercanu]

hey guys:

i was trying to import data from internet to an excel spreadsheet by using the command query.

With Sheets(1).QueryTables.Add(Connection:="URL;" & miurl, Destination:=Sheets(1).Range("a1"))
                .BackgroundQuery = True
                .TablesOnlyFromHTML = False
                .Refresh BackgroundQuery:=False
                .SaveData = True
End With

somehow, an error appears eventually:

Run-time error '1004':
http://anywebpage.com
the internet site reports that the item you requested could not be
found. (HTTP/1.0 404)

every time this error appears, i have to debug the program by running it from VBA. Again and again

How can i avoid this error? thanks in advance