Visual Basic - Error a Borrar registro

Hola a todos, me aparece un error al intentar borrar un registro del ADO. Este es el mensaje:

Error '3251': El recordset actual no admite actualizaciones. Pueder ser una limitación del proveedor o del tipo de bloqueo seleccionado

El objeto es un ADO y este es el Codigo.

Rs1.Open "select * From Tablas Where Codigo_TAB=" & Val(TxtCodigo.Text), Con, 1, 1
Do While Rs1.EOF = False
r = MsgBox("¿Desea borrar la tabla seleccionada?", vbInformation + vbYesNo, "Atención")
If r = vbYes Then
Rs1.Delete 'borrar el registro actual
End If
Loop

¿A que puede ser debido?. Muchas gracias a todos de antemano.

Bueno colega, te comento que eso se debe al tipo de bloqueo que tiene tu recordset, no se realmente cual es que se le coloca por defecto pero intenta con esto a ver que sucede, a mi me funciono:

Rs1.LockType = adLockOptimistic ''agrega esta linea debe solucionar el problema
Rs1.Open "select * From Tablas Where Codigo_TAB=" & Val(TxtCodigo.Text), Con, 1, 1
Do While Rs1.EOF = False
r = MsgBox("¿Desea borrar la tabla seleccionada?", vbInformation + vbYesNo, "Atención")
If r = vbYes Then
Rs1.Delete 'borrar el registro actual
End If
Loop