Imports System.Windows.Forms
Imports System.Drawing
Imports System.Data.OleDb
Imports System.Data.SqlClient
 
Public Class Form1
    Inherits System.Windows.Forms.Form
 
#Region " Vom Windows Form Designer generierter Code "
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Dim ds As DataSet
        Dim daTabelle1 As SqlDataAdapter
        Dim dt As DataTable
        Dim conn As New SqlConnection("Data Source=(" & _
          "local);uid=??;pwd=????;Database=Mitarbeiter_Zeitkonto")
 
        Dim SQL As String = "SELECT NameMitarbeiter, SUM(Zeit) AS Summe_Uhrzeit" & _
          "FROM Tabelle1 GROUP BY NameMitarbeiter"
        Dim cmd As New SqlCommand(SQL, conn)
        daTabelle1 = New SqlDataAdapter(cmd)
        ds = New DataSet
        Try
            daTabelle1.Fill(ds, "Tabelle1")
            dt = ds.Tables.Item("Tabelle1")
            lblSumme.Text = ds.Tables(0).Rows(0).Item("Summe_Uhrzeit")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            If conn.State = ConnectionState.Open Then conn.Close()
        End Try
        If conn.State = ConnectionState.Open Then conn.Close()
 
    End Sub
 
End Class