Тусклое sSQL3 как шнур
Тусклое oRST3 как ADODB.Recordset
Установите oRST3 = новое ADODB.Recordset
Затемните oConnect3 как ADODB.Connection
Установите oConnect3 = новое ADODB.Connection
sSQL3 _
= «_ УТОЧНЕНИЯ [Quantité_distribuée]»
& «ОТ [Inventaire]» _
& «ГДЕ Période = «» & ComDateDisponible.Text & «» «_
& «И Description_du_produit = «» & Des_prod.Text & «» «
oConnect3.Open «Provider=Microsoft.ACE.OLEDB.12.0; » & _
«Данные Source=» & Form4.txt BaseDe.Text &»; «
oConnect3.execute sSQL3