Syntax

expression.Columns

expression A variable that represents an OfficeDataSourceObject object.

Example

The following example displays the field names in the data source attached to the active publication.

Visual Basic for Applications 
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
columns columns property ofv

See also: