obtener cantidad de columnas

[Lynx]

Si es posible pero lo que tienes que hacer es convertir tu RecordSet a un arreglo de 2 dimensiones x, y

Esto se hace asi

Set Rs = Conn.Execute(SQL)
If Not Rs.Eof Then
Vector = Rs.GetRows

Ya de aqui no recuerdo bien como es, pero busca informacion sobre la funcion uBound()

Sin embargo te puedo decir que para saber la cantidad de filas que es la que comunmente uso se pude saber asi cantfila = uBound(Vector, 2), esto te da y

A lo mejor para saber x es uBound(Vector, 1)

End If