Propiedad Columns
Devuelve un objeto ODSOColumns que representa los campos de un origen de datos.
expresión.Columns
expresión Requerida. Expresión que devuelve uno de los objetos de la lista Aplicar a.
Ejemplo
El ejemplo siguiente muestra los nombres de campos del origen de datos adjunto a la publicación activa.
Sub ShowFieldNames()
Dim appOffice As OfficeDataSourceObject
Dim intCount As Integer
Set appOffice = Application.OfficeDataSourceObject
appOffice.Open bstrConnect:="DRIVER=SQL Server;SERVER=ServerName;" & _
"UID=user;PWD=;DATABASE=Northwind", bstrTable:="Employees"
With appOffice.Columns
For intCount = 1 To .Count
MsgBox "Field Name: " & .Item(intCount).Name
Next
End With
End Sub