problemas com update

[brunow 0]

id=request.form("id")respondeu="s"resposta=request.form("resposta")respostadata=Day(now()) & "/" & Month(now())responsavel= request.form("responsavel")Set cnnSimple = Server.CreateObject("ADODB.Connection")cnnSimple.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("banco/esperma.mdb") & ";"  strSQL = "SELECT * FROM esperma where respondeu='"strSQL = strSQL & respondeu & "'"Set rstSimple = cnnSimple.Execute(strSQL)strSQL = "UPDATE esperma SET "strSQL = strSQL & "respondeu='" & respondeu & "',"strSQL = strSQL & "resposta='" & resposta & "',"strSQL = strSQL & "respostadata='" & respostadata & "',"strSQL = strSQL & "responsavel='" & responsavelstrSQL = strSQL & "' WHERE id=" & idConntemp.Execute strSQL

resulta no seguinte erro:

Erro de tempo de execução do Microsoft VBScript error '800a01a8' Objeto necessário: '' /paginas/donakelna/wms_esperma.asp, line 47

obrigado :unsure:

[JucaMaster 0]

Tenta isto:cnnSimple.Execute strSQLvocê declarou o objeto errado