参考答案

Private Sub Command1_Click()
    CD1.ShowOpen
'或    CD1.Action = 1
'或    CD1 = 1
End Sub