strSQL = "INSERT INTO tblIncident (IncDesc, IncDate, StatusID, ClientID, ISStaffID) Values ('" & Replace(Problem.Text, "'", "''") & "', GetDate(),1," & strID & ",5) SELECT scope_identity()"
Use the ExecuteScalar method instead of ExecuteNonQuery. Cast the result of the ExecuteScalar method...