Select case VBA help

Hi Experts....I have a combobox (Plan_ID) on my form that gets its data from a Table (Tbl_Affordent). The values in this fields are:

Plan_ID (autonumber) Plan_Code:        Plan_Description
1                                     A                         Item A
2                                    B                         Item B
3                                    C                         Item C

The Combobox looks up the data and stores it on the form in a field (Plan_ID; Numeric field). The field is derived from a Table (Tbl_Main_Pt) hereby the relationshipbetween the 2 tables are:

Tbl_Main_Pt         Tbl_Affordent_Plan
Plan_ID  (number)    Plan_ID (Autonumber)
  Many        To                One

I want to select the values in the ComboBox according to the DOB (Date of Birth) from Tbl_Main_Pt on the form:

I have a select case vba on current depending on a calculation on the On_Current Event - This is called Age

The Code is:

Dim Age As Integer
Dim strList As String
Age = (Now()-Nz(me.DOB)/365)

Select Case Age

Case is Age <12

strList = "A;Item A';B;'Item B'"

Case is Age >12

strList = "B;Item B';C;'Item C'"



StrList = Me.Plan_ID.rowsource

End Select


The problem is that the ComboBox is not shoing any values in the dropdown list. I have even tried replacing the strList ith the numeric equivalents of the text values (1,2,3) as above, with no joy:

eg. strList = "1;2;3"



What is going wrong please
Start Free Trial