'Form laden - Patientendaten einladen
    Private Function getPatienten() As DataSet
 
        Dim selStr As String = "SELECT ID, Nachname, Vorname, Dauer," & _
          "Fachbereich, Datum FROM stat11patienten WHERE month(Datum) = month(" & _
          "GetDate())"
        Dim da As New SqlDataAdapter(selStr, conn)
        Try
            Dim ds As New DataSet()
            conn.Open()
            da.Fill(ds, "stat11patienten")
            conn.Close()
            Return ds
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Auf die Datenbank kann nicht" & _
              "zugegriffen werden!", MessageBoxButtons.OK, MessageBoxIcon.Error)
            conn.Close()
            Return Nothing
        End Try
    End Function
 
 
    'Form laden - aus "getPatienten" in der Listview darstellen
    Private Sub displayList()
 
        Dim ds As DataSet = getPatienten()
        Dim dt As DataTable = ds.Tables("stat11patienten")
 
        For i As Integer = 0 To dt.Rows.Count - 1
            Dim dr As DataRow = dt.Rows(i)
            Dim lvi As New ListViewItem(dr("ID").ToString)
            lvi.SubItems.Add(dr("Nachname").ToString)
            lvi.SubItems.Add(dr("Vorname").ToString)
            lvi.SubItems.Add(dr("Dauer").ToString)
            lvi.SubItems.Add(dr("Fachbereich").ToString)
            Dim d As DateTime = Convert.ToDateTime(dr("Datum"))
            lvi.SubItems.Add(d.Date.ToString(d))
 
            ListView1.Items.Add(lvi)
 
        Next i
 
    End Sub