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