ADODC

[sadmi]

Помогите разобраться с ADODC. На форме есть ADODC и TDadaLite. DataSource для TDadaLite - ADODC.
Подключение и строка запроса:
Me.Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Password=1;User ID=sa;Initial Catalog=vt;Data Source=bs"

Me.Adodc1.RecordSource = "SELECT name_podr as Подразделение,nach_podr as 'ФИО руководителя ',tel_podr as Телефон FROM spr_podr"

SQL-запрос на выборку данных работает нормально, а вот с добавлением новых строк проблема.
SQL = "insert into spr_podr values ('15', 'Иванов', '21', '3')"
Me.Adodc1.RecordSource = SQL
Me.Adodc1.Refresh
Me.TDataLite1.Refresh
Выдает ошибку: "Операция не допускается или объект закрыт". Хотя строка реально в базу добавляется, но в гриде ее нет.
Что тут не так?

[Konst_One]

Код: Выделить всё

Dim cn as ADODB.Connection

Set cn=New ADODB.Connection
cn.Open ConnectString
cn.Execute SQL

[sadmi]

Спасибо, работает. Как всегда, все оказалось довольно просто.