Где ошибка:

[Egik_net]

filePath = Server.MapPath("UA.mdb")
Set conn = Server.CreateObject("ADODB.Connecti on")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;D ata Source=" & filePath
Set oRs = Server.CreateObject("ADODB.Recordse t")
oRs.Open "SELECT * FROM pr WHERE id=2", conn, adOpenStatic

cost.Caption = oRs("prise")


oRs.Close
Set oRs = Nothing
conn.Close
Set conn = Nothing

В БД содержаться форма. В этой форме при нажатию на кноgre должен срабатывать ВБСкрипт выполняющий подключение к этой же самой БД но к таблице(pr) не входящей в запрос. Далее считывается значение поля, столбца prise и присваивается надписи в форме.
Т.е.
id | prise
1 | 100
2 | 200<-нужное значение.

Но почему-то этого не происходит а форма выдает сообщение:"object required". Просьба помочь, я в этом деле особо не смыслю.

Скрипт подключения взял с асп сайта, который когда-то писал. Работало.

[Teslenko_EA]

и Вам здравствуйте Egik_net.

'Dim filePath$, conn As Object, oRs As Object ' без подключения ADO
Dim filePath$, conn As ADODB.Connection, oRs As ADODB.Recordset
'рекомендую декларировать переменные,
'это не только хороший тон, но и защита от возможных проблем,
'filePath = Server.MapPath("UA.mdb")
filePath = ("C:\Folder\UA.mdb") 'должен быть указан полный путь размещения файла
'Set conn = Server.CreateObject("ADODB.Connection")
'Set conn = CreateObject("ADODB.Connection") 'создать новое подключение можно так
Set conn = New ADODB.Connection ' или так если библиотека ADO подключена к проекту
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + filePath
'Set ors = Server.CreateObject("ADODB.Recordset")'создание рекордсета тоже не верно
'Set oRs = CreateObject("ADODB.Recordset")
Set oRs = New ADODB.Recordset

'oRs.Open "SELECT * FROM pr WHERE id=2", conn, adOpenStatic
' с открытием рекордсета проблем нет,
'но запрашивать данные из всех полей (*) смысла тоже нет
oRs.Open "SELECT prise FROM pr WHERE id=2", conn, adOpenStatic

'cost.Caption = oRs("prise")
'соответственно данные из поля рекордсета можно получить так:
cost.Caption = oRs(0)

Евгений.

[Egik_net]

Евгений спасибо за помощь. Возник ещё вот такой вопрос, долго не могу получить решение:

При обновлении предыдущего списка, значения данного списка изменяются, всё работает. Но почему-то значение по умолчанию не может иметь строковый тип данных.

т.е. такой вариант работает:
поле_цвета.DefaultValue = 1

А вот такой нет:
поле_цвета.DefaultValue = "A"

При установки "значения по умолчанию" в аксессе тоже работает, но необходимо менять это значение с помощью VBS.

[Teslenko_EA]

Здравствуйте Egik_net.
у контрола "поле_цвета" установлена связь с данными ?
возможно связанное поле не приемлет строчные значения.
Евгений.

[Egik_net]

Сначала пробовал со связью, потом делал поле "свободным" В том и в другом случае результат одинаковый.

[Abrakadabra]

Сообщение от Egik_net

с помощью VBS.

Cstr ?......

[Egik_net]

Ответ найден: поле_цвета.DefaultValue = """A""" =)