Private connStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
  "Source=Forderung.mdb;"
 
Private selGesamt As String = "SELECT SUM(Berechnung.Gesamtbetrag) AS Gesamt" & _
  "FROM Berechnung WHERE lfdNr"
 
Private conn As New OleDbConnection(connStr)
 
Private  daGesamt As New OleDbDataAdapter
 
Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
 
conn = New OleDbConnection(connStr)
 
da = New OleDbDataAdapter(selGesamt, conn)
 
ds = New DataSet
 
ds.Clear()
 
conn.Open()
 
daGesamt.Fill(ds, "Gesamt")
 
conn.Close()
 
Dim dtGesamt As DataTable = ds.Tables("Gesamt")
 
If cboAuswahl.SelectedIndex = 1 Then
 
txtKreditsumme.DataBindings.Add("Text", dtGesamt, "Gesamt")
 
End If
 
MyBase.OnLoad(e)
 
End Sub