Apoyo para valor nulo

[cazvic]

Buen día, Comunidad!!
Quiero pedir de su apoyo, para solucionar un problema que tengo soy nuevo en la programación orientada a objetos en Vb.net. El problema que tengo es el siguiente, cuando intento llenar un campo, me manda el msj error de lectura por que no hay datos, lo que quiero es poder asignarle al nulo un cero y en otro caso que toma el valor maximo de mi consulta y lo aumente en 1.
Espero que me puedan apoyar: este es el codigo que utilizo.
Gracias por su atención.


' Si lo que trae la consulta es un valor nulo
If dataread.HasRows = vbNull Then
'Asignale a la var un 0
vnser = 0
Else
'de otro caso trae el maximo valor de la consulta y aumentalo en 1
vnser = dataread("MaxServ")
vnser = vnser + 1
txtnodeservicio.Text = vnser
End If