«NullReferenceExeption был необработанным»

Question

У меня есть проект здесь, в моем ojt. Форма vb2010. Я получаю эту ошибку: «NullReferenceExeption был необработанным». Почему я его получаю? im надеясь на чью-либо помощь. Спасибо.

это мой код;

Private Sub RefreshData() 
    If Not con.State = ConnectionState.Open Then 

     con.Open() 
    End If 

    Dim da As New OleDb.OleDbDataAdapter("SELECT ID as [ID], " & _ 
             "fname as [NAME], lname" & _ 
             "FROM asdf ORDER by ID", con) 

    da.Fill(ds.Tables("asdf"))**** this part is where i get the error***** 
    con.Close() 
End Sub 

Answer 1

Ошибка говорит, что это значит,

Поместите пустой чек

if(ds != null && ds.Tables("asdf") != null) then 
.... ' put da.Fill here 
end if 

Answer 2

«NullReferenceExeption был Неизвестное» ошибка указывает на то, что вы пытаетесь использовать нулевой объект в коде. Сделайте null check как: -

if(con != null) then 
     'your code... 
end if 


if(ds != null && ds.Tables("asdf") != null) then 
    'your code... 
end if