Public Sub UseDataAdapter(ByVal myConnection As SqlConnection)
  Dim myAdapter As SqlDataAdapter = New SqlDataAdapter("SELECT DeptNo, DName FROM Test.Dept", myConnection)
  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 SqlCommand("INSERT INTO Test.Dept (DeptNo, DName) " & _
      "VALUES (:DeptNo, :DName)", myConnection)
  myAdapter.InsertCommand.Parameters.Add("DeptNo", SqlType.Int, 0, "DeptNo")
  myAdapter.InsertCommand.Parameters.Add("DName", SqlType.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