Public Class Form1
  Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    dataGridView1.AutoGenerateColumns = False
    dataGridView1.AllowUserToAddRows = False
    dataGridView1.AllowUserToDeleteRows = False
    dataGridView1.ReadOnly = True

    textBox1.Enabled = False

    Dim cell As DataGridViewCell = New DataGridViewTextBoxCell()
    Dim col As DataGridViewColumn

    col = New DataGridViewColumn(cell)
    col.DataPropertyName = Northwind.Employee_Sales_by_Country_Table0.OrderID
    col.HeaderText = "Order ID"
    dataGridView1.Columns.Add(col)

    col = New DataGridViewColumn(cell)
    col.DataPropertyName = Northwind.Employee_Sales_by_Country_Table0.ShippedDate
    col.HeaderText = "Shipped"
    dataGridView1.Columns.Add(col)

    col = New DataGridViewColumn(cell)
    col.DataPropertyName = Northwind.Employee_Sales_by_Country_Table0.SaleAmount
    col.HeaderText = "Amount"
    dataGridView1.Columns.Add(col)

    dataGridView1.Width = 60

    For i As Integer = 0 To dataGridView1.Columns.Count - 1
      dataGridView1.Width += col.Width
    Next

    Me.Width = dataGridView1.Left * 3 + dataGridView1.Width

    Dim ds As DataSet = Northwind.Employee_Sales_by_Country(DateTime.Parse("1/1/1990"), DateTime.Parse("1/1/2100"))

    System.Diagnostics.Debug.Assert(DirectCast(ds.ExtendedProperties(ParameterDirection.ReturnValue.ToString()), Integer) = 0)

    dataGridView1.DataSource = ds.Tables(0)

    dataGridView1_CellClick(Me, New DataGridViewCellEventArgs(0, 0))
  End Sub

  Private Sub dataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dataGridView1.CellClick
    Dim nMax As Decimal = 0
    Dim nOrderID As Integer = DirectCast(dataGridView1.Rows(e.RowIndex).Cells(0).Value, Integer)

    For Each dr As DataRow In Northwind.CustOrdersDetail(nOrderID).Tables(0).Rows
      Dim nPrice As Decimal = DirectCast(dr(Northwind.CustOrdersDetail_Table0.ExtendedPrice), Decimal)

      If nPrice > nMax Then
        nMax = nPrice
      End If
    Next

    textBox1.Text = nMax.ToString("C")
  End Sub
End Class