获取表字段名

获取表字段名。有几种方法：
1、用一个组合框或列表框，设其数据行来源类型为“字段列表”，行来源为所需的表，然后用组合框或列表框的Column属性取值来获得字段名。
2、用ADO中的Field对象的name属性获得字段名。

作者：老汉

其中方法二可写成如下函数：
Function Fieldname(tbname As String) As String
'参数：tbname为表或查询名称
Dim rs As New ADODB.Recordset
Dim i As Long
rs.Open tbname, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
For i = 1 To rs.Fields.Count
    Fieldname = Fieldname & rs.Fields(i).Name & ";"
Next
End Function