If RsImmGiudiz.State <> adStateOpen Then
qImmGiudiz = "SELECT * FROM ImmobiliGiudiz"
RsImmGiudiz.Open qImmGiudiz, CnVerifica , adOpenKeyset, adLockOptimistic
End If
qVerifica = "SELECT IDImmobile FROM DescrizImmob WHERE IDImmobile = " & lblValCodice.Caption
RsVerifica.Open qVerifica, CnImmGiudiz , adOpenKeyset, adLockOptimistic
... scusa ma apri 2 connection differenti ... ma su 2 database differenti o è lo stesso database ??????
e hai provato ad aggiungere i metodi di transizione ???BeginTrans,
CommitTrans sulla connection ???

codice:
cn.BeginTrans
rs_fornitore.AddNew
rs_fornitore("Rag_soc") = txtfornitore.Text
rs_fornitore("contatto") = txtcontatto.Text
rs_fornitore("indirizzo_for") = txtind_fornitore.Text
rs_fornitore("piva") = txtpivafor.Text
rs_fornitore("citta_for") = txtcap_fornitore.Text
rs_fornitore("cap") = txtcap_fornitore.Text
rs_fornitore("prov") = txtprov_fornitore.Text
rs_fornitore("tel_for") = txttel_for.Text
rs_fornitore("fax_for") = txtfax_for.Text
rs_fornitore("email_for") = txtemail_for.Text
rs_fornitore("cel") = txtcel_for.Text
rs_fornitore.Update
cn.CommitTrans