Problema Ao Atualizar Bd

[fertel]

Bom analisando o código abaixo que atualiza dois campos (data/hora) no bd na tabela ENTRADA:

ID = Request.QueryString("ID")
ComandoSQL = "SELECT * FROM ENTRADA WHERE ((ENTRADA.ID)=" & ID & ")"
Set bd = Server.CreateObject("ADODB.Recordset")
bd.CursorLocation = 2
bd.CursorType = 0
bd.LockType = 3
bd.Open ComandoSQL, conexao,,, &H0001

bd("DATA_SAIDA") = Date()
bd("HORA_SAIDA") = Time()
    bd.UpdateBatch
    bd.Requery
Session("CODIGO") = CODIGO
Response.Redirect "default.asp?OK=1"

Só que parece que o banco não localiza a linha que deve alterar. A mensagem de erro é:

Error Type:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

Query-based update failed because the row to update could not be found.

Já verifiquei a variável "ID" e a mesma está correta retornando "10" que é exatamente a linha que desejo alterar.

Alguém pode me ajudar?

Obrigado.

[fertel]

Opa...

Consegui mudando a seguinte linha:

bd.CursorType = 1

vlw...

Se alguém pelo menos puder postar a causa disso pra gente entender seria legal.

Obrigado.