Khi download liên tục không nhận được kết quả mới, lỗi ở đâu? (2 người xem)

[emgaingayngo]

Em viết một đoạn mã :

Sub DowloadKQMinhNgoc()Dim ngaycantim As Date, ngay As Long, thang As Long, nam As Long
Dim dai As String, madai As Byte
On Error GoTo ERH


Application.ScreenUpdating = False
S03.Activate
S03.Range("Q2:U30").Clear
ngaycantim = Format(frmNhapKQXS.Controls("txtNgay").Value, "dd/mm/yyyy")
ngay = Day(ngaycantim)
thang = Month(ngaycantim)
nam = Year(ngaycantim)
dai = frmNhapKQXS.Controls("cboDai").Value

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://minhngoc.com.vn/ve-do.php?mien=2&vdn=" & ngay & "-" & thang & "-" & nam & "&page=1" _
, Destination:=S03.Range("$S$3"))
'.Name = "tra-cuu-kqxs.html?mien=1&thu=0&ngay=17&thang=7&nam=2011"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "5"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With

Application.ScreenUpdating = False
ERH:
' MsgBox Err.Description, vbOKOnly

End Sub

để download KQ, tuy nhiên khi chạy vòng Do.. loop nó không chịu down kết quả mới về mà chỉ lặp lại kq cũ, không biết lỗi ở đâu??? Mong diễn đàn coi giúp.