[firebase-br] Off Top: Problema Firebird com VB 6

[Cicero F]

Boa tarde companheiros e desculpa pelo off, mas é q ja to loquinho a ponto 
de largar mão do FireBird.

Bom tenho uma tabela q é uma agenda médica e não estou conseguindo excluir 
registro dela estou usando o FireBird 2.0 e VB 6 com OLEDB e fazendo 
conforme abaixo:

        Dim Str2 As String
        Dim Rs2 As New ADODB.Recordset
        If MsgBox("Deseja Realmente Excluir a Consulta do(a) Paciente " & 
Lista.TextMatrix(Lista.Row, 4), vbQuestion + vbYesNo + 256, "Atenção") = 
vbYes Then
            '--------------------
            Str2 = "SELECT * From AGENDA WHERE AGENDA.CODIGO=" & 
Val(Lista.TextMatrix(Lista.Row, 1))
            Rs2.CursorLocation = adUseClient
            Rs2.Open Str2, DB, adOpenKeyset, adLockOptimistic
            '--------------------
            If Rs2.RecordCount <> 0 Then
                '----------------
                Rs2.Delete
                '----------------
            End If
            Rs2.Close
            Set Rs2 = Nothing
            '--------------------
        End If

Esta dando a seguinte msg :
E esta dando o seguinte erro : Run-time error ‘-2147217864(80040e38)’

“A linha não pode ser localizada para atualização. Alguns valores podem ter 
sido alterados desde que ela foi lida pela última vez.”



Alguem poderia me dizer o q esta acontecendo ?

Grato

Cícero

_________________________________________________________________
Verificador de Segurança do Windows Live OneCare: combata já vírus e outras 
ameaças! http://onecare.live.com/site/pt-br/default.htm