Numero colonne in un recordset?

[morphe]

allora.. carico il foglio excel tramite jet oleDB4 e lo scorro con i recordset

XL = Server.CreateObject("ADODB.Connection")
Dim MyXLS As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" &
Server.MapPath("App_Data\Trackers.xls") & ";Extended Properties=""Excel
8.0;hdr=yes;IMEX=1"""
XL.Open(MyXLS)

Dim RXLS
RXLS = Server.CreateObject("ADODB.Recordset")

RXLS.Open("SELECT * FROM [Sheet1$]", XL)

e vorrei sapere quante colonne ci sono in questo file.

gentilissimo grazie