RVARGAS:
En SQL Server, lo hago con un recordset, así
Código VBasic:
Dim rs As New ADODB.Recordset
Dim NCampos As Integer
SQL = "select * from tabla"
Set rs = New ADODB.Recordset
rs.CursorType = adOpenKeyset
rs.Open SQL, cn
NCampos = rs.Fields.Count
Debería funcionarte igual.
Espero que te sirva
Saludos