Архив форумов ЦИТФорума

[nataly]

Пожалуйста, подскажите, как решить вопрос.
Задача такая: база данных (Access 2002), содержит таблицу Tab1. Требуется изменить
данные в поле data таблицы Tab1. Тип данных
поля data - дата/время.
Мой вариант такой:
Dim data As Date
Dim con As Object
Dim rs As Object
data=InputBox("Новая дата:")
Set con = Application.CurrentProject.Connection
Sql = "UPDATE [Tab1]"
Sql = Sql & " SET [Tab1].[data]=#" & data & "#"
Set rs = CreateObject("ADODB.Recordset")
rs.Open Sql, con, 1, adLockOptimistic
Set rs = Nothing
Set con = Nothing
Но он почему-то не работает.