Dim cmd As SqlClient.SqlCommand
        cmd = New SqlClient.SqlCommand()
        With cmd
            .Connection = conn
            .CommandText = "sp_mitarbeiter"
            .CommandType = CommandType.StoredProcedure
        End With
 
        Dim da As SqlClient.SqlDataAdapter
        da = New SqlClient.SqlDataAdapter(cmd)
 
        Dim ds As DataSet
        ds = New DataSet()
        da.Fill(ds, "Mitarbeiter")
 
        Dim dr As DataRow
        For Each dr In ds.Tables("Mitarbeiter").Rows
            MsgBox(dr("ID"))
        Next