Public Sub UseDataAdapter(ByVal db2Connection As DB2Connection)
  Dim myAdapter As DB2DataAdapter = New DB2DataAdapter("SELECT DeptNo, DName FROM Dept", db2Connection)
  myAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey
  Dim myDataSet As DataSet = New DataSet
  myAdapter.Fill(myDataSet, "Departments")
  Dim rowVals(1) As Object
  rowVals(0) = "40"
  rowVals(1) = "Operations"
  myDataSet.Tables("Departments").Rows.Add(rowVals)
  myAdapter.InsertCommand = New DB2Command("INSERT INTO Dept (DeptNo, DName) " & _
      "VALUES (:DeptNo, :DName)", db2Connection)
  myAdapter.InsertCommand.Parameters.Add("DeptNo", DB2Type.Int, 0, "DeptNo")
  myAdapter.InsertCommand.Parameters.Add("DName", DB2Type.VarChar, 15, "DName")
  myAdapter.Update(myDataSet, "Departments")
  Dim myTable As DataTable
  Dim myRow As DataRow
  Dim myColumn As DataColumn
  ' Get all data from all tables within the dataset
  For Each myTable In myDataSet.Tables
    For Each myRow In myTable.Rows
      For Each myColumn In myTable.Columns
        Console.Write(myRow(myColumn) & Chr(9))
      Next myColumn
      Console.WriteLine()
    Next myRow
    Console.WriteLine()
  Next myTable
End Sub