Private Function CreateConfigDs() As DataSet
  Dim ds As New DataSet
  Dim dt As DataTable = ds.Tables.Add("config")
  dt.Columns.Add("setting_id", System.Type.GetType( _
    "System.Int32")).AutoIncrement = True
  dt.Columns.Add("name", System.Type.GetType("System.String"))
  dt.Columns.Add("value", System.Type.GetType("System.String"))
  Return ds
End Function