makumbi says:
While sdr.Read()
customers.Add(New Baladata With {
.Account = sdr("Account"),
.Classr = sdr("Class"),
.Stream = sdr("Stream"),
.Names = sdr("Names"),
.Subject = sdr("Subject"),
.Mid = sdr("Mid"),
.Ends = sdr("Ends"),
.Grade = sdr("Grade"),
.Term = sdr("Term"),
.Years = sdr("Years"),
.Total = sdr("Total"),
.Phones = sdr("Phones")
})
End While
Replace with below code. You need to check with IsDBNull before setting the property.
While sdr.Read()
customers.Add(New Baladata With {
.Account = If(),
.Classr = If(IsDBNull(sdr("Class")), String.Empty, sdr("Class")),
.Stream = If(IsDBNull(sdr("Stream")), String.Empty, sdr("Stream")),
.Names = If(IsDBNull(sdr("Names")), String.Empty, sdr("Names")),
.Subject = If(IsDBNull(sdr("Subject")), String.Empty, sdr("Subject")),
.Mid = If(IsDBNull(sdr("Mid")), String.Empty, sdr("Mid")),
.Ends = If(IsDBNull(sdr("Ends")), String.Empty, sdr("Ends")),
.Grade = If(IsDBNull(sdr("Grade")), String.Empty, sdr("Grade")),
.Term = If(IsDBNull(sdr("Term")), String.Empty, sdr("Term")),
.Years = If(IsDBNull(sdr("Years")), String.Empty, sdr("Years")),
.Total = If(IsDBNull(sdr("Total")), String.Empty, sdr("Total")),
.Phones = If(IsDBNull(sdr("Phones")), String.Empty, sdr("Phones"))
})
End While