linked combo box help ..

[juju]

I am trying to use the following code to update the list in one combo box based on selection from another.

I am getting an error on line 2 - "select case Dbase1.Value". not sure what to do. I removed the "Value" part, but nothing happens ..

Private Sub Dbase1_Change()
    Select Case Dbase1.Value
        Case Is = "Show By Week"
            Dbase2.ListFillRange = "LstdbWeek"
        Case 2
            Dbase1.ListFillRange = "LstdbMonth"
    End Select
End Sub

 

[juju]

anyone? I am hitting my head against the wall on this one!