VB 5 bug ili ja nesto ne radim kako treba

Code:
Dim baza As Database
Dim vrednosti, interpolacija As Recordset
Dim visina, sirina, sa, bez As Integer
Dim razmera As Double


Private Sub tacke(ByVal tabela As Recordset, linija As Line, ByVal Kolona As String)
    With linija
        .X1 = CInt(sirina / 2 + razmera * tabela!x)
        .Y1 = CInt(visina / 2 - razmera * tabela.Fields(Kolona))
        tabela.MoveNext
        .X2 = CInt(sirina / 2 + razmera * tabela!x)
        .Y2 = CInt(visina / 2 - razmera * tabela.Fields(Kolona))
        .Visible = True
    End With
End Sub
Public Sub nacrtaj()
    sirina = frmGrafikoni.ScaleWidth
    visina = frmGrafikoni.ScaleHeight
    With XOsa
        .X1 = 0
        .X2 = sirina
        .Y1 = CInt(visina / 2)
        .Y2 = .Y1
    End With
    With YOsa
        .Y1 = 0
        .Y2 = visina
        .X1 = CInt(sirina / 2)
        .X2 = .X1
    End With
    vrednosti.MoveLast
    Max = vrednosti!x
    vrednosti.MoveFirst
    vrednosti.MoveNext
    i = 1
    razmera = frmGrafikoni.ScaleWidth / (Max + 1)
    While Not vrednosti.EOF
        vrednosti.MovePrevious
        tacke vrednosti, BezInterpolacije(i), "Y"
        vrednosti.MoveNext
    Wend
    interpolacija.MoveFirst
    interpolacija.MoveNext
    While Not interpolacija.EOF
        interpolacija.MovePrevious
        tacke interpolacija, LaGranz(i), "La Granz"
        interpolacija.MovePrevious
        tacke interpolacija, Njutn(i), "Njutn"
        interpolacija.MoveNext
    Wend
End Sub

Private Sub Form_Load()
    Set baza = OpenDatabase("baza.mdb")
    Set vrednosti = baza.OpenRecordset("Vrednosti")
    Set interpolacija = baza.OpenRecordset("Interpolacija")
    For i = 1 To vrednosti.RecordCount - 1
        Load BezInterpolacije(i)
    Next i
    For i = 1 To interpolacija.RecordCount - 1
        Load LaGranz(i)
        Load Njutn(i)
    Next i
End Sub

Private Sub Form_Resize()
    nacrtaj
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Glavni.Show
End Sub