Provate a vedere se c'è qualcosa che non va

Questi i passaggi:
Prima l'eliminazione del record, che fa avviare un timer impostato a 4000 e infine il timer rifà la SELEZIONE NEL DATABASE

Private Sub Delapp_Click()
If Codforn = "Data " Then
Exit Sub
End If
If Trim(Codforn) = " " Then
Exit Sub
End If
If Codforn = "Numer" Then
Exit Sub
End If
MsgBox "Vuoi cancellare l'appuntamento n "
Numeroapp = Codforn
sql_textcancella1 = "delete * from Appuntamenti where Numero = "& Numeroapp
SetlRsElimina1 = DatabaseAgenda.Execute(sql_textcancella1)
Timer2.Enabled = True
Timer2.Interval = 4000
End Sub

Private Sub Timer2_Timer()
DoSql1
Timer2.Enabled = False
end sub

Sub DoSql1()
Timer2.Enabled = False

Dim mysql$
Pipposta = " "
Pippo = " "
Pippo = Format(Now, "dd mm yyyy") ' Aggiorna il tempo
girodata = Mid(Pippo, 7, 4) & Mid(Pippo, 4, 2) & Mid(Pippo, 1, 2)
Pipposta = girodata
mysql$ = "SELECT Numero,Datagir,ora,Oggetto " _
& "FROM Appuntamenti where Data = '" & girodata & "'" _
& " ORDER BY Ora"
Flex.Row = 0
MSRDC1.SQL = mysql$
MSRDC1.Refresh
Flex.Refresh
Frameapp.Refresh
' Flex.Sort = 1
End Sub