获取表字段名。有几种方法：
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
