Si no recerdo mal, para SQL Server tenías que añadir a la sentencia de inclusión esto:
Código:
Dim objCmd As New SqlCommand("INSERT INTO ....;@@IDENTITY")
Dim id As Integer = objCmd.ExecuteScalar
Si no es exactamente así, por ahí van los tiros.
Un saludo.