According to the documentation here, each data point in the series has 4 Y values in the order "high, low, open and close, respectively". So your code should look more like:
Code:
Dim someXvalue As Integer = 60 ' for example

Dim open As Double = CDbl(HesapsonDataGridView.Rows(60).Cells(1).Value)
Dim high As Double = CDbl(HesapsonDataGridView.Rows(60).Cells(2).Value)
Dim low As Double = CDbl(HesapsonDataGridView.Rows(60).Cells(3).Value)
Dim close As Double = CDbl(HesapsonDataGridView.Rows(60).Cells(4).Value)

CANDLE.Series(0).Points.AddXY(someXvalue, high, low, open, close)