Не срабатывает условие проверки DataTable на пустоту - Visual Basic .NET

Формулировка задачи:

Доброго времени суток. В VB нуб, в .NET тем более. Спросить не у кого. Кусок кода формы:

                    Листинг программы
                
 
                        
                          
                    
        Dim cn As New SqlConnection
        cn.ConnectionString = "Server=bla;Database=blabla;User Id=bla;Password=bla;"
        Dim st1 As String
        st1 = "Select * from Tab1 where ID=" & Me.idd
        Dim da1 As New SqlDataAdapter(st1, cn)
        Dim ds1 As New DataSet
        da1.Fill(ds1, "Tab1")
        'With CheckedListBox1
        If Not ds1.Tables(0).Rows(0)(1) = Nothing Then
            CheckedListBox1.SetItemChecked(0, True)
        End If
 
        If Not ds1.Tables(0).Rows(0)(2) = Nothing Then
            CheckedListBox1.SetItemChecked(1, True)
        End If
 
        If Not ds1.Tables(0).Rows(0)(3) = Nothing Then
            CheckedListBox1.SetItemChecked(4, True)
        End If
 
        MsgBox(ds1.Tables(0).Rows(0)(8))

Если условия выполняются, то все хорошо и как надо. Но если нет - на том, где условие не выполняется, происходит пропуск вообще всех дальнейших инструкций. Остальные if не проверяются, msgbox не вываливается. Я, может, не совсем понимаю принцип, но разве не должен он дальше пройти проверить остальной текст кода? Почему при невыполнении условия в if программа просто завершается, наплевав на прочие инструкции? Ошибок никаких не выдает. Помогите, пожалуйста.

Решение задачи: «Не срабатывает условие проверки DataTable на пустоту»

textual
                            Листинг программы 
                        
 
                        
                          
                    
         Try
            Dim cn As New SqlConnection
            cn.ConnectionString = "Server=bla;Database=blabla;User Id=bla;Password=bla;"
            Dim st1 As String
            st1 = "Select * from Tab1 where ID=" & Me.idd
            Dim da1 As New SqlDataAdapter(st1, cn)
            Dim ds1 As New DataSet
            da1.Fill(ds1, "Tab1")
            'With CheckedListBox1
            If Not ds1.Tables(0).Rows(0)(1) = Nothing Then
                CheckedListBox1.SetItemChecked(0, True)
            End If
 
            If Not ds1.Tables(0).Rows(0)(2) = Nothing Then
                CheckedListBox1.SetItemChecked(1, True)
            End If
 
            If Not ds1.Tables(0).Rows(0)(3) = Nothing Then
                CheckedListBox1.SetItemChecked(4, True)
            End If
 
            MsgBox(ds1.Tables(0).Rows(0)(8))
        Catch ex As Exception
            MsgBox(ex.Message & vbCrLf & vbCrLf & ex.StackTrace)
        End Try