Rs1 = New ADODB.Recordset()
Rs1.Open("Select SUM(Ausgabe) As Summe From Kassenbuch", Cn, _
  ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
txtAusgaben.Text = VB6.Format(Rs1.Fields("Summe").Value, "#,##0.00")
Rs1.Close()

Dim Sql As String = "SELECT * FROM Kassenbuch Order By Periode, Datum"
Dim Cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
  "Source=D:\Eigene Dateien\Kassenbuch\Kassenbuch.NET\kassenbuch.mdb")
Dim Da As New OleDb.OleDbDataAdapter(Sql, Cn)
Dim Dt As New DataTable()