Se scrivo:

codice:
Dim cliccato As Boolean

Private Sub cmd1_Click()
On Error Resume Next
If cliccato Then
MsgBox ("Meggaggio Prova 1!")
'inizio salvataggio db

Set Conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set Conn1 = New ADODB.Connection
Set RS1 = New ADODB.Recordset


Conn.Open str
rs.Open "Table1", Conn, 3, 3

Conn1.Open str1
RS1.Open "Table1", Conn1, 3, 3

For i = 1 To n
rs.AddNew
rs("Macchina") = Numeri(i)
rs("Valore") = valore(i)
rs("Data") = data
rs.Update
Next i
Set Conn = Nothing
Set rs = Nothing



RS1.AddNew
RS1("Data") = data
RS1("Versamento") = Text7.Text
RS1("Eccedenza") = Text2.Text
RS1("Rimanenza") = Text3.Text
RS1("Carico") = Text4.Text
RS1.Update
Set Conn1 = Nothing
Set RS1 = Nothing

'fine salvataggio db
Totale = Totale - 1
txtTotale.Text = Totale
Else
MsgBox ("Messaggio Prova 2!")
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
a = Text10.Text
temp2 = Text2.Text
temp3 = Text3.Text
temp4 = Text4.Text
totTemp = a + temp2 + temp4 - temp3
Text1.Text = totTemp

'inizio salvataggio db

Set Conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set Conn1 = New ADODB.Connection
Set RS1 = New ADODB.Recordset


Conn.Open str
rs.Open "Table1", Conn, 3, 3

Conn1.Open str1
RS1.Open "Table1", Conn1, 3, 3

For i = 1 To n
rs.AddNew
rs("Macchina") = Numeri(i)
rs("Valore") = valore(i)
rs("Data") = data
rs.Update
Next i
Set Conn = Nothing
Set rs = Nothing



RS1.AddNew
RS1("Data") = data
RS1("Versamento") = Text7.Text
RS1("Eccedenza") = Text2.Text
RS1("Rimanenza") = Text3.Text
RS1("Carico") = Text4.Text
RS1.Update
Set Conn1 = Nothing
Set RS1 = Nothing

'fine salvataggio db

Totale = Totale + 1
txtTotale.Text = Totale
End If
End Sub
codice:
Private Sub cmd3_Click()
    cliccato = True

'altro codice
....

End Sub

Scrivendo in questo modo...se noti ho inserito un messaggio di prova per vedere quando vengono eseguite determinate operazioni; ma se clicco una volta o due o tre volte su cmd3 mi viene visualizzato il messaggio:

codice:
MsgBox ("Messaggio Prova 1!")
E su questo ci siamo; ma se non clicco neanche una volta mi viene visualizzato sempre lo stesso messaggio e non il messaggio:

codice:
MsgBox ("Messaggio Prova 2!")
Cosa sbaglio?