--
老大的方法:
Dim cnn As new Data.OleDB.OleDbConnection(connections("Sale").ConnectionString)
Dim ada As New Data.OleDB.OleDbDataAdapter("Select * From 产品 Where [_indentify] is null",cnn)
Dim dt As New Data.DataTable
ada.FillSchema (dt,System.Data.SchemaType.Source)
For Each dc As data.DataColumn In dt.Columns
output.show(dc.ColumnName)
Output.Show(dc.DataType.name) \'列类型
output.show(dc.MaxLength)
Next