1) Prova così
codice:
dim contatore as integer

Private Sub Form_Load()
contatore=0
form.timerinterval=1000 ' un secondo
end sub

private sub Form_timer()
contatore=contatore +1
if contatore < 5 then
'suona 5 volte e visualizza la sveglia
MMControl1.Command = "close"
            MMControl1.DeviceType = "Sequencer"
            'imposta l'uso di ina sola periferica per volta (necessaria per i wave)
             MMControl1.Shareable = False
             'apre la cartella Musica
            MMControl1.filename = "C:\Documents and Settings\Luisa\Documenti\VB\Nuova 
cartella\sound\fx2.wav"

         MMControl1.Command = "Sound"
else
'disattiva il timer
form.timerinterval=0
end if
         
End Sub
in questo modo il timer si ferma dopo 5 volte

2) lascio a chi ne sa più di me
3) lascio a chi ne sa più di me

4) se devi solo contare i record usa
codice:
“SELECT count(*) FROM dati  WHERE data=” & date