如何得知某table有多少欄位數(編號：6218)

db.CursorLocation = adUseClient
db.Open "Provider=SQLOLEDB.1;........"
　rs.Open "select * from table", db, adOpenDynamic...　　
　'---------record count
　　MsgBox rs.RecordCount