CtListBar控件使用代码编制错误求助

kx120

CtListBar控件使用代码编制错误求助Sub ctListBar1_ItemClick1(ByVal nList As Integer, ByVal nItem As Integer)
Select Case nList And nItem
Case 1 And 1
     DoCmd.OpenForm "窗体3"
Case 1 And 2
      DoCmd.OpenForm "窗体4"
Case 2 And 1
..........................
Case 2 And 2
......................
Case 3 And 1
.........................
End Select
End Sub

问题:菜单失控