Questa riga :
codice:
adoCon.Open = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource="c:\dataEntry\public\Dati\Gestione_Distributori.mdb";Persist Security Info=False";"
Mi sembra sbagliata Dovrebbero esserci i doppi apici solo alle estremità della stringa, invece tu li hai anche nel mezzo.
E comunque io scrivo codice sempre un po' più compatto, quindi farei:
codice:
Dim sCN
sCN = sCN + "Provider=Microsoft.Jet.OLEDB.4.0;"
sCN = sCN + "DataSource=c:\dataEntry\public\Dati\Gestione_Distributori.mdb;"
sCN = sCN + "Persist Security Info=False;"
Ciao