creacion ID de acces en visual basic

[kamumaki]

buenas!!!

hago lo siguiente
- cojo el id maximo k haya en los registros de la tabla empreses.
- si hay algun registro pues nada cojo el maximo y le sumo 1 y sin problemas.
- lo malo es cuando la tabla esta vacia!!!!

como se lo digo???

SQL = "SELECT MAX(ID) as maxid FROM T_EMPRESES"
Set Rs = CurrentDb.OpenRecordset(SQL)

If Rs!maxid = Null Then
CODI = 1
Else
CODI = Rs("maxid") + 1
End If

merci!!!!