vb 工具栏

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
        
    Select Case Botton.Key
    Case "R_Designed"
        File_Type = Receiver_Designed
        Rs.Open "select * from rec_designed order by name", Cn, adOpenKeyset, adLockOptimistic
        Me.Adodc1.RecordSource = "select * from rec_designed order by name"
        Me.DataGrid1.Caption = "检波点设计坐标"
    Case "S_Desinged"
        File_Type = Source_Designed
.......

编译时,提示实时错误424,要求对象??? --------------------编程问答-------------------- Select Case Botton.Key 
改成
Select Case Button.Key  --------------------编程问答-------------------- 楼上应该是解决问题的关键。 --------------------编程问答-------------------- 楼主Select Case Botton.Key 打错了

补充：VB ,  基础类