Графика в Excel VBA

[Abdukhafiz]

Привет всем..
Мне нужно нарисовать графику в Excel. В ячейках даны время от 00:00 до 23:59, который используется для значение икса.. А значение y  идет из базы данных (MS SQL Server 2005). Я написал такой код в VBA:

For i = 1 To 1440
        t = Application.Cells(i, 1)
        While Not records.EOF
            abc = records(0)
            If abc = t Then
                Application.Cells(i, 2) = "1"
                records.MoveNext
                GoTo Label
            Else
                Application.Cells(i, 2) = Null
                GoTo Label
            End If
        Wend
Label:
    Next

Если данные равны, то добавляет, а если одно значение не будет равно, то остальные единички не добавляется.. Где тут ошибка у меня?

[alsh]

....
                     GoTo Label
            Else
                Application.Cells(i, 2) = Null
                records.MoveNext      '!!!!
                GoTo Label
            End If
.....

С уважением,
alsh