Visual Basic - Problemas con RecordSet

Hola

Yo tengo una bd en Acces y un formulario a donde llevo los datos. A este le llevo el ultimo registro + 1 para ingresar mas datos, estoy tratando de que cuando no hayan datos en la bd me traiga el # 1 con este código:

Dim rstOrden As ADODB.Recordset
Dim strOrden As String
Dim Aux2 As String 'Para buscar los nombres de los Productos
'se busca el último registro de la tabla OrdenCompra
Set rstOrden = New ADODB.Recordset
strOrden = "Select max(NoOrden) from OrdenCompra"
rstOrden.Open strOrden, conexion
If rstOrden.Fields(0) = null Then
Exit Sub
Else
Max = rstOrden.Fields(0) + 1
End If

Pero me saca error ("Uso No válido de NULL"). Con cual otra forma puedo realizar esta consulta????
Gracias por ayudarme

En la consulta dile que no te devuelva los nulos:

strOrden = "Select max(NoOrden) from OrdenCompra IS NOT NULL NoOrden"

Un saludo.