ник: час
ООООООООООООООООООО и так попёрло
With Adodc1
.ConnectionString = "FILE NAME=C:\VB-DB\NOMENKLATURA.udl"
.RecordSource = "Запрос1"
End With
Set Text1.DataSource = Adodc1
Text1.DataField = "Наименование"
Label1.Caption = "Наименование:"
Set Cena.DataSource = Adodc1
Cena.DataField = "Цена"
Label2.Caption = "Цена:"
|