Ti ringrazio del codice, ma purtroppo non fa al mio caso. Devo usare Ado net mentre se non vado errato(è un anno e mezzo che non lavoro più in vb6) tu fai riferimento a Dao o comunque con qualche modifica funzionante anche con Ado, ma non Ado Net, Il problema è che non capisco come diavolo si usa la Jet OleDb: New Database Password = ......A dire la verità ho risolto compattando l'mdb e sostituendo la password usando la libreria Microsoft Jro ma è un sistema un pò contorto ...
L'istruzione dovrebbe essere questa ma non riesco a farla funzionare:

StringaConnessione = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=TuoDb.mdb; Jet OLEDB: Database Password= VecchiaPassword; Jet OLEDB:New Database Password=NuovaPassword