Dim rdr As OleDataReader = cmd.ExecuteReader(...)
Dim tbl As DataTable = rdr.GetSchemaTAble()
rdr.Close()
 
ConsoleWriteLine("ColumnName          SqlDbType        Length      Precision   " & _
  "Scale")
ConsoleWriteLine( _
"-------------------------------------------------------------------")
For Each row As DataRow In tbl.Rows
    Console,WriteLine("{...} {...} {...} {...} {...}", _
        row("ColumnName"),
        CType(row("ProviderType"),  OleDbType), _
        row("CoumnSize"),
        row("NumericPrecision"), _
        row("NumericScale"))
...