Sure! A recordset contains a field collection method.
Code:
Dim iNumOfFields As Integer

iNumOfFields = rs.Fields.Count
This assumes you have named your recordset rs.
Good luck!