sSQL3 não ofuscante como a corda
oRST3 não ofuscante como ADODB.Recordset
Ajustar oRST3 = ADODB.Recordset novo
Escurecer oConnect3 como ADODB.Connection
Ajustar oConnect3 = ADODB.Connection novo
sSQL3 _
= da “_ ATUALIZAÇÃO [Quantité_distribuée]”
& “[Inventaire]” do _
& “ONDE Période = “” & ComDateDisponible.Text & “” “_
& “E Description_du_produit = “” & Des_prod.Text & “” “
oConnect3.Open “Provider=Microsoft.ACE.OLEDB.12.0; ” & _
“Origem de dados =” & Form4.txt BaseDe.Text &”; “
oConnect3.execute sSQL3