Если в таблице базы пустая ячейка, то при выгрузке в ListView возникает ошибка - VB

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

Доброго времени суток! Возникли некоторые вопросы при работе с БД. Загружаю в ListView данные из базы вот таким образом:

                    Листинг программы
                
 
                        
                          
                    
Private Sub Form_Load()
    With ListView1.ColumnHeaders
        .Add , , "Код", 1000
        .Add , , "ФИО", 2000
        .Add , , "НЭОК1", 2000
        .Add , , "НЭОК2", 2000
    End With
    LoadData
End Sub
 
Sub LoadData()
 
For i = ListView1.ListItems.Count To 1 Step -1
    ListView1.ListItems.Remove i
Next
    DSNName = "DRIVER=Microsoft Access Driver (*.mdb, *.accdb);DBQ=" & App.Path
    DSNName = DSNName & HomeDir & "\База данных3.mdb"
    conn.Open DSNName
    SQL = "select * from Sheet1 " & "WHERE ФИО LIKE '%" & Text4.Text & "%'"
    rs.Open SQL, conn, 3, 3
    Do Until rs.EOF
        Set list = ListView1.ListItems.Add(, , rs(0))
        For X = 1 To 3
            list.SubItems(X) = rs(X)
        Next X
            rs.MoveNext
        Loop
            Set rs = Nothing
            conn.Close
End Sub

Итак, вопросы. 1) Если в таблице базы пустая ячейка, то при выгрузке в ListView возникает ошибка. Как этого избежать? 2) В событии Form_Load() добавляю заголовки в ListView вручную, а хотелось бы получить кол-во столбцов в таблице базы и их заголовки и уже "плясать" от полученных данных. 3) Как программно в таблицу базы данных добавить новый столбец? Заранее спасибо!

Решение задачи: «Если в таблице базы пустая ячейка, то при выгрузке в ListView возникает ошибка»

textual
                            Листинг программы 
                        
 
                        
                          
                    
DSNName = "DRIVER=Microsoft Access Driver (*.mdb, *.accdb);DBQ=" & App.Path
    DSNName = DSNName & HomeDir & "\База данных3.mdb"
    conn.Open DSNName
    SQL = "select * from Sheet1 " & "WHERE ФИО LIKE '%" & Text4.Text & "%'"
    rs.Open SQL, conn, 3, 3
For i = 1 To rs.Fields.Count
    With ListView1.ColumnHeaders
        .Add , , rs.Fields(i - 1).Name, 1000
    End With
Next i
        Set rs = Nothing
    conn.Close
 
    LoadData