vb6 Ярлык не обновляется

Question

Код работает нормально, но ярлык не обновляется

Dim rs As New ADODB.Recordset
Dim totalmytd As Long

totalmytd = 0
Label1(4).Caption = ""

rs.Open "Select Count(*) as mytdTot from dt_table Where [date] Between DateSerial(Year(Date()), 1, 1) And Date()", cn, adOpenDynamic, adLockOptimistic

totalmytd = rs!mytdTot

Label1(4).Caption = "YTD: " & totalmytd