Fai così:

nel form del progetto immetti un controllo label1.caption

rendi publiche nel form generali queste due variabili:
Dim tempo_impiegato, tempo_iniziale

prima della connessione al db immetti questo:
tempo_iniziale = Timer

alla fine della connessione al db immetti questo:
Label1.Caption = Fix((Timer - tempo_iniziale) * 1000) / 1000





link
homepage
http://%77%77%77%2e%74%77%6f%72%6b%2e%69%74/
software
http://%77%77%77%2e%74%77%6f%72%6b%2...programmi.html
forum
http://%77%77%77%2e%74%77%6f%72%6b%2...um/default.asp