VB Veritabanı Sutun Toplama

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.

örneğinizi de ekleyin bakalım

(10/06/2016, 01:00)C*e*l*o*y*c*e yazdı: örneğinizi de ekleyin bakalım

Eklenmiştir.

merhaba 
ekrem isimli formu inceleyin,orda yapmaya çalıştım ancak çok hatanız var bunuda demeden edemiyeceğim,
formların kayıt edip etmediğini bile kontrol edemedim,ayrıca ayrı ayrı mdb,yapmışsınız,bence tek yerde toplamalıydınız.çok karışmış,çok
neyse belki fikir verir size

(10/06/2016, 02:28)C*e*l*o*y*c*e yazdı: merhaba 
ekrem isimli formu inceleyin,orda yapmaya çalıştım ancak çok hatanız var bunuda demeden edemiyeceğim,
formların kayıt edip etmediğini bile kontrol edemedim,ayrıca ayrı ayrı mdb,yapmışsınız,bence tek yerde toplamalıydınız.çok karışmış,çok
neyse belki fikir verir size

teşekkürler üstadım