Problem mit Insert im VB/SQL Programm

Hallo,

finde keine Lösung zu folgendem Problem:
SQL2000 Tabelle mit einem Primärschlüssel (id), ich soll da Zeilen hinzufügen können mit einem VB Programm, kriege aber beim .Update eine Fehlermeldung, daß die Id-Spalte nicht NULL sein darf.
Das ganze wird so aufgemacht:

adoPrimaryRS.CursorLocation = adUseServer
adoPrimaryRS.Open „select bsId,bsNr,ksId,bsText,bsJahr,bsQ1,bsQ2,bsQ3,bsQ4 from BudgetSoll Order by bsJahr“, db, adOpenKeyset, adLockOptimistic

Gibt es irgendeine Möglichkeit die nächste ID-werte rauszukriegen?

Danke
Olga

select max(id) + 1 (OT)