Imports System.Data.SqlClient
 
Public Class Form1
 
    Dim dt As New DataTable()
    Dim bs As New BindingSource
    Dim c As New SqlClient.SqlConnection
    Dim da As New SqlClient.SqlDataAdapter
    Dim dauer As New DataTable
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
 
        Dim connStr As String = "Data Source=DEGWEB01\SQLEXPRESS; Initial" & _
          "Catalog=statambpat; Integrated Security=True"
 
        Dim conn As New SqlConnection(connStr)
        Dim da As New SqlDataAdapter("SELECT Datum, Vorname, Nachname, Dauer" & _
          "FROM Stat11Patienten", conn)
        Dim ds As New DataSet()
 
        conn.Open()
        da.Fill(ds, "Stat11Patienten")
        conn.Close()
 
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "Stat11Patienten"
 
        filllblMinuten()
        LabelBinden()
 
    End Sub
 
    Private Sub filllblMinuten()
 
        c.ConnectionString = "Data Source=DEGWEB01\SQLEXPRESS; Initial" & _
          "Catalog=statambpat; Integrated Security=True"
        c.Open()
        Dim s As String = "SELECT * FROM vwDauerGesamt"
        da.SelectCommand = (New SqlClient.SqlCommand(s, c))
        dauer.Clear()
        da.Fill(dauer)
        da.SelectCommand.Dispose()
        c.Close()
 
    End Sub
 
    Sub LabelBinden()
 
        Dim b As Binding
 
        bs.DataSource = dt
 
        b = New Binding("Text", bs, "Dauer")
        Label2.DataBindings.Add(b)
 
    End Sub
 
End Class