Combo Box

What I am doing is to set the dept field as a Combobox or dropdown and when you pick a dept number the segment, dept desc and segdesc is autofilled.  Its not working and I don’t know what I am doing wrong?  See below for specs


AfterUpdate event

Private Sub cbodept_AfterUpdate()
Me.txtDepnmdesr = Me.cbodept.Column(3)
Me.txtSegm = Me.cbodept.Column(4)
Me.txtSegdescr = Me.cbodept.Column(5)
End Sub
===============================
Query sql in Row source of deot cbo

SELECT [Department and Segment table].ID, [Department and Segment table].Dept, [Department and Segment table].Segment, [Department and Segment table].Dept_Desc, [Department and Segment table].Segment_Desc
FROM [Department and Segment table];
=================================

Data of the query in the rowsource of the dept field combox

ID      Dept            Segment      Dept_Desc            Segment_Desc
1      0701101      07000001      General             Promise Programs
2      0701101      00000000      General            Undefined Segment


Thanks