- Код: Выделить всё
txtFields(1) = rstDB("director")
Тут ошибка вылетает из-за присвоения текстовому полю значения NULL. Собственно, желательно все поля, которые ты читаешь из БД пропускать примерно через такую процедурку:
- Код: Выделить всё
Public Function CString(vIn As Variant) As String
If IsNull(vIn) Then
CString = ""
Else
CString = CStr(vIn)
End If
End Function
Т.е. получится примерно так:
- Код: Выделить всё
txtFields(1) = CString(rstDB("director"))
Можешь и свою написать по аналогии. Ещё как вариант можно делать так:
- Код: Выделить всё
txtFields(1) = "" & rstDB("director")
Тоже будет работать.
UPD:
Далее.
Тут:
- Код: Выделить всё
rstDB("runtime")
Банальная опечатка. "runt
ime" вместо runt
ume. Я понимаю, что правильно будет "runtime". Но в БД-то у тебя поле названо runtume! =)
UPD:
А вот чего он не хочет первую запись создавать - хз.
З.Ы. А зачем ты используешь НАСТОЛЬКО устаревшие механизмы? Я имею в виду ADO2.0 Вместо 2.8 и Jet.3.51 вместо Jet.4.0. Опять же БД, созданная в старом Access.. У меня её нормально открыл для изменения только 97й..
Может, если перейдёшь на что-то поновее, половина проблем сама исчезнет?
З.Ы. Вот тебе примерчик работы с БД. Может, поможет в решении каких-то вопросов.
download/file.php?id=7072