Pobieram z kolumny A daną, na podstawie której wykonuję zapytanie do bazy danych, a wyniki zapisuję do kolejnych kolumn arkusza zgodnie z poniższym:

                Do Until dane.EOF
                DoEvents
                    For k = 1 To dane.Fields.Count - 1
                        Worksheets("wyniki").Cells(liczba, k).Value = dane(k - 1).Value
                    Next
                    dane.MoveNext
                    liczba = liczba + 1
                Loop

Natomiast dla części danych zapytanie nie zwraca wartości (nie ma ich w bazie). Jak taki przypadek obsłużyć, aby w kolumnach z danymi wynikowymi zamiast pustych komórek było 0 lub "brak danych"?