Fel i en transaktion

Jag kör ungefär följande:

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open getDb()
conn.BeginTrans
on error resume next

strSQL = "INSERT INTO foo (a) VALUES ('b')"
conn.Execute strSQL,,128

strSQL = "SELECT @@IDENTITY"
If err.number = 0 Then 
    Set rs = conn.Execute(strSQL)
    id = rs(0)
    rs.Close
    Set rs = nothing
End If

'Här är err.number = 0

strSQL = "INSERT INTO bar (c) VALUES ('d')"
If err.number = 0 Then
    conn.Execute strSQL,,128
End If

[b]'Här är err.number = 424[/b]

If err.number <> 0 Then
    conn.RollbackTrans
    on error goto 0
Else
    conn.CommitTrans
    End If

conn.Close
Set conn = nothing

När jag kommit till den markerade raden är err.Number = 424 (dvs err.Description = "Object required"). Varför?