ExecuteScalar

[Wilotas]

Hola amigos, tengo el siguiente codigo:

' Asigno ID de usuario.

strConsulta = "Select max(id_comp) from componentes"

miCmd.CommandText = strConsulta



lblid.Text = miCmd.ExecuteScalar + 1


Lo q hace simplemente es asignar un id al insertar un componente, este id es el maximo id q hay en la tabla componentes +1, el problema viene q cuando esta vacia la tabla, me dice q DBNull + integer nanai, no hay manera...He probado a hacer un If Typeof miCmd.ExecuteScalar is DBnull para saber si va a devolver un DBNull pero no funciona, no se, a ver si a alguien se le ocurre como puedo saber si la consulta no me devuelve ningun valor o algo para solucionar esto, gracias ;)

Un saludo a todos.