beyler benim bir lokantam var ve ben toplam kazanılan parayı yazdırmak istiyorum

Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=MeramYurt.mdb")



        baglanti.Open()

        Dim komut As New OleDb.OleDbCommand("SELECT SUM ([tutar]) FROM [yurt]", baglanti)

        Dim oku As OleDb.OleDbDataReader

        oku = komut.ExecuteReader()

        While oku.Read()

            If oku(1) = ComboBox2.Text Then

                Label1.Text = oku(1)

            End If

        End While

        baglanti.Close()

Kodunu kullanınca degişik bi hata geliyor
"Dizin, dizi sınırları dışında" hatası acil yardım.