[HiddenM]

Здравствуйте.

есть база mdb
подключаюсь так

Код:

[Выделить все]

         Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MainMdb & ";"
        Dim connection As New OleDbConnection(connectionString)   
        Dim command As New OleDbCommand("SELECT * FROM " & TableRead & " ORDER BY id", connection)
        Dim adapter As New OleDbDataAdapter(command)
        connection.Open()
        Dim reader As OleDbDataReader = command.ExecuteReader()

далее читаю

Код:

[Выделить все]

            For Each recotd As DbDataRecord In reader
            miMes = recotd("id")
10            Dim lbl As Object ' string   char   variantType
15            If Not recotd("label") IsNot Nothing Then
            Else
                lbl = recotd("label")
            End If
            If lbl = "4" Then
                mes = mes & "<td bgcolor=lightgreen colspan=>" & UBound(tytListFild) & recotd("title") & "</td></tr><tr>"
            End If
           If lbl = "5" Then
                mes = mes & "<td bgcolor=lightblue colspan=>" & UBound(tytListFild) & recotd("title") & "</td></tr><tr>"
            End If

20            If IsNothing(lbl) Then ' читаю обычную строку
                For i = LBound(tytListFild) To UBound(tytListFild)
30                   mes = mes & "<td>" & recotd(tytListFild(i)) & "&nbsp;</td>"
                Next
            End If
            mes = mes & "</tr>"
            Next
            WebBrowser1.DocumentText = mes

если просто читать таблицу, то всё красиво выводится. Но постепенно стало нужным таблицу делать красивее, а это объединять ячейки, чтобы получались как бы заголовки.
Для этого в базе акцесса есть столбец с метками. Там просто цифры и также пустые поля. Пустые поля есть и в других столбцах и в строке 30 это не вызывает никакой ошибки.
А вот в строках 10-20 как только это поле нужно проверить ничего не получается.
в строке 10 lbl уже было всем чем можно.
в строке 15 было всё что было найдено в интернете (очень разные конструкции с Not IsNot Nothig и тд)
оно либо работает когда в строке 15 присваиваю что-то если там не пусто, или сразу же не работает когда проверяю когда 4 или 5. Недопустимое приведение к типу...
Что посоветуете ?

----- добавлено через ~19 мин. -----
после отчаяния, сразу нашелся ответ

Код:

[Выделить все]

If IsDBNull(recotd("label")) = False Then
     lbl = recotd("label")
   Else
     lbl = ""
End If

IsDBNull то я не пробовал. Всем спасибо.

[trir]

он умер