[求助][已解决]如何获取一个表的列数呀？

jacken

请教大侠帮忙，如何获取一个ACCESS的表或查询有多少列呀，在VBA中。

[此贴子已经被LucasLynn于2006-5-15 14:50:54编辑过]

crg770502

Sub Mcols()
    Dim rs As New ADODB.Recordset, Mcol As Long
    rs.Open "select * from 表1", CurrentProject.Connection
    Mcol = rs.Fields.Count
End Sub