Hi,

        ListItem = "Call Schedule"
        Select Case ListItem
            Case ListItem = "Call Schedule"
                CrystalReport1.ReportFileName = "Patient_Call_Schedule.rpt"
            Case ListItem = "Week Prior Reminder"
                CrystalReport1.ReportFileName = "Patient_Remind_1WK_Before.rpt"
            Case Else

        End Select

Above is a piece of code that I am running using VB50 E'se edition with service
pack 3.  Somehow, VB is skipping the statement after  Case ListItem = "Call
Schedule"
What am I missing or doing wrong? Any known issues on VB50 and the Select Case
statement?

Cheers

        ListItem = "Call Schedule"

        Select Case ListItem

            Case "Call Schedule"
                CrystalReport1.ReportFileName = "Patient_Call_Schedule.rpt"

            Case "Week Prior Reminder"
                CrystalReport1.ReportFileName =
"Patient_Remind_1WK_Before.rpt"

            Case Else

        End Select