Sei sicuro che ha sempre funzionato? Forse hai cancellato una riga:

codice:
strConn = "DRIVER=Microsoft Access Driver (*.mdb); DBQ=" & Server.MapPath("dite la vostra/Messaggi.mdb")
strprov.Open strConn
Devi aprire anche l'oggetto connessione...

Roby