Почему-то не работает код

[VBTerminator]

Извините, если написал не туда...
У меня есть код, работающий с базой данных MS-Access/
И в двух местах вылетает ошибка (в коде есть выделяющийся комментарий, под которым и есть ошибочные места)

Подскажите, пожалуйста, где я допустил ошибку?

[iGrok]

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

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")

Банальная опечатка. "runtime" вместо runtume. Я понимаю, что правильно будет "runtime". Но в БД-то у тебя поле названо runtume! =)

UPD:
А вот чего он не хочет первую запись создавать - хз.

З.Ы. А зачем ты используешь НАСТОЛЬКО устаревшие механизмы? Я имею в виду ADO2.0 Вместо 2.8 и Jet.3.51 вместо Jet.4.0. Опять же БД, созданная в старом Access.. У меня её нормально открыл для изменения только 97й..

Может, если перейдёшь на что-то поновее, половина проблем сама исчезнет?
З.Ы. Вот тебе примерчик работы с БД. Может, поможет в решении каких-то вопросов.
download/file.php?id=7072