Null

Hola, mi problema es que si la tabla esta vacia el siguiente codigo me saca
una excepcion,porque no puede hacer un select max(...) de un valor que no
existe.
¿como puedo mediante un if...end if , decir que si es null que se vaya al
elsees que he provado dbnull,null pero no se como utilizarlo?

Un saludo

Dim numero As Integer
Dim cad As String = "select max(vnventa) from ventas"
'crear comando de seleccion del ultimo codigo para aumentarlo en 1
Dim dr As New OleDb.OleDbCommand(cad, OleDbConnection1)
Me.OleDbConnection1.Open()
'al datareader le asignamos el comando
Dim datare As OleDb.OleDbDataReader =
dr.ExecuteReader(CommandBehavior.CloseConnection)
'leo cual es el ultimo codigo
'If Val(datare.Item(0)) Is DBNull Then

'End If
Do While datare.Read
numero = Val(datare.Item(0))
Loop
Me.OleDbConnection1.Close()