Public Sub UseDataAdapter(ByVal sqConnection As SQLiteConnection)
  Dim myAdapter As SQLiteDataAdapter = New SQLiteDataAdapter("SELECT DeptNo, DName FROM Dept", sqConnection)
  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 SQLiteCommand("INSERT INTO Dept (DeptNo, DName) " & _
      "VALUES (:DeptNo, :DName)", sqConnection)
  myAdapter.InsertCommand.Parameters.Add("DeptNo", SQLiteType.Int32, 0, "DeptNo")
  myAdapter.InsertCommand.Parameters.Add("DName", SQLiteType.Text, 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