How to take auto number(IDENTITY no ) in vb.net

command.ExecuteNonQuery()
command.CommandText = "Select @@IDENTITY"
ID = command.ExecuteScalar

insert this code after ExecuteNonQuery and Return ID