About Columns

You could put your adodb recordset results in to variant array which would give you the ability to count the rows. The method is getRows as shown below. If you stuffed this into a function then for each recordset you return you can count through the array dimension and get you column count / row count etc.

Dim objRs As New ADODB.Recordset
Dim objCmd As New ADODB.Command
Dim objConn As New ADODB.Connection
objConn.Open strDbConnectionString
objCmd.CommandText = strSQL
objCmd.CommandType = adCmdText
Set oCmd.ActiveConnection = objConn
ObjRs.Open oCmd


MethodName = objRs.GetRows
dim i as integer
for i = 0 to uBound(MethodName)
  'do what you want with your array data in here such as count the number of columns
next

objRs.Close
objConn.Close
Set objRs= Nothing
Set objCmd= Nothing
Set objConn= Nothing


 

objRs.Fields.count is also preferable in this way.

I think some mistake here !

I dont want to count columns, i want to count the length of each column in a table.
Ex: if i have a columns like this in table XXX then
Column name  Datatype Lenght
Name             VArchar  12
Id                   Numeric 6
Then i must count the length....
How .... ?
any code sample will do....