Dim yol As String = Application.StartupPath.ToString()
        Dim baglan As New OleDbConnection("provider=microsoft.jet.oledb.4.0; data source=" & yol & "\veritabani.mdb")
        baglan.Open()

        komut.CommandText = "select  sum(Fiyat) as [Fiyat] from muhasebe "
        dt = komut.ExecuteReader
        komut.Parameters.Clear()

        While dt.Read()
            TextBox2.Text = dt("Fiyat")
        End While
        baglan.Close()