this is my project in my ojt. I have a problem in ds(DataSet), the error says that it is null, now, my question is, how can I fix this problem?
Private Sub RefreshData()
    If Not con.State = ConnectionState.Open Then
        con.Open()
    End If
    Dim dt As New DataTable("SELECT ID as [ID], " & _
                                         "fname as [NAME], lname " & _
                                     "FROM asdf ORDER by ID")
    If ds IsNot Nothing And ds.Tables("asdf") IsNot Nothing Then****this part is were i        get the error***
        da.Fill(dt, "asdf")
    End If
    con.Close()
    maxrows = ds.Tables("asdf").Rows.Count
    inc = -1
End Sub
 
     
    