You can try doing it this way.
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
If Button.Caption = "save" Then
Call mySave
ElseIf Button.Caption = "new" Then
Call myNew
End If
End Sub
Sub mySave()
If Me.ActiveForm Is Nothing Then Exit Sub
Dim f As Form
Set f = Me.ActiveForm
Select Case f.Name
Case "Form1"
'do your save for form1
Case "Form2"
'do your save for form2
End Select
End Sub
Sub myNew()
If Me.ActiveForm Is Nothing Then Exit Sub
Dim f As Form
Set f = Me.ActiveForm
Select Case f.Name
Case "Form1"
'do your new for form1
Case "Form2"
'do your new for form2
End Select
End Sub