Ciemnawy sSQL3 Sznurek
Ciemnawy oRST3 Jako ADODB.Recordset
Set oRST3 = Nowy ADODB.Recordset
Ciemnawy oConnect3 Jako ADODB.Connection
Set oConnect3 = Nowy ADODB.Connection
sSQL3 _
= "AKTUALIZACJA [Quantité_distribuée]" _
& "OD [Inventaire]" _
& "DOKĄD Période = "" & ComDateDisponible.Text & "" "_
& "I Description_du_produit = "" & Des_prod.Text & "" "
oConnect3.Open "Provider=Microsoft.ACE.OLEDB.12.0; " & _
"Dane Source=" & Form4.txt BaseDe.Text &"; "
oConnect3.execute sSQL3