Si queremos recuperar el esquema de columna con el proveedor de OLE DB .NET. podemos utilizar este código fuente:
Dim cn As New OleDbConnection
Dim cmd As New OleDbCommand
Dim schemaTable As DataTable
Dim myReader As OleDbDataReader
Dim myField As DataRow
Dim myProperty As DataColumn
cn.ConnectionString = "Provider=SQLOLEDB;Data Source=server;User ID=login;" & _
"Password=password;Initial Catalog=Northwind"
cn.Open()
cmd.Connection = cn
cmd.CommandText = "SELECT * FROM Employees"
myReader = cmd.ExecuteReader()
schemaTable = myReader.GetSchemaTable()
'Para cada campo de la tabla...
For Each myField In schemaTable.Rows
'Para cada propiedad del campo...
For Each myProperty In schemaTable.Columns
'Mostrar el nombre y el valor del campo.
Console.WriteLine(myProperty.ColumnName & " = " & myField(myProperty).ToString())
Next
Console.WriteLine()
Next
myReader.Close()
cn.Close()
