I have a pulldown where I list col. 1 & 2. I want to change this so I will display only col2. THis is the code I use at present. Anyone have any ideas?

Function Item_Open()
'Pulldown for client information
Dim rst1
Dim dao
Dim wks
Dim db
Dim nms
Dim fld
Dim itms
Dim itm
Dim strAccessDir
Dim objAccess
Dim CategoryArray(99,2)
Dim CustomerArray(99,2)

'Pick up path to Access database directory from Access
Set objAccess = Item.Application.CreateObject("Access.Application" )
strDBName = ("tabsproddatabaseedgarcigarscontrol room.mdb")
'MsgBox "DBName: " & strDBName

'Set up reference to Access database
Set dao = Application.CreateObject("DAO.DBEngine.35")
Set wks = dao.Workspaces(0)
Set db = wks.OpenDatabase(strDBName)

'Retrieve Category info from table
Set rst1 = db.OpenRecordset("Work4number")
Set ctl = Item.GetInspector.ModifiedFormPages

ctl.ColumnCount = 2
ctl.ColumnWidths = "120; 40 pt"

'Assign Access data to an array of 2 columns and 100 rows
CategoryArray(99, 2) = rst1.GetRows(100)
ctl.Column() = CategoryArray(99, 2)