Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.key
Case "add"
    ControlState True
    Adodc1.Recordset.AddNew
    For i = 1 To Text1.UBound
        Text(i) = ""
        Text(i).Locked = False
    Next i
    Text1(0).SetFocus
Case "save"
    Adodc1.Recordset.Update
    ControlState False
Case "cancel"
    ControlState False
    For i = 1 To Text1.UBound
        Text(i) = ""
        Text(i).Locked = True
    Next i
Case "close"
    Unload Me
End Select
End Sub

ControlState True 从这句话看应该是一个Sub， 看名字估计是激活一些控件的Enabled。
我估计你是直接复制或者拿来就用的。

我也新手，对Toolbar1控件一点不了解，还不知怎样下载，楼主能否介绍一下怎样取得这一控件。看了半天知道.UBound意思和.Locked用法。

工程—部件－Microsoft Windows Common Controls， Toolbar控件就在其中，如果没有添加一下这个部件就能看到

谢版主。认真学习学习。