Visual Basic - Error al intentar Borrar

Hola a todos, me aparece un error al intentar borarr 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.

Rs1.Open "select * From Tablas Where Codigo_TAB=" & Val(TxtCodigo.Text), Con, adopendynamic, adcmdtext.

Con esto permite las actualizaciones

Saludos, yo soluciones ese problema de esta forma, espero te ayude:

dim rec_borrar as recordset
set rec_borrar = new recordset

******* las variables a y b son mis rangos de fechas ********

consulta = "select * from cajas where cajas.fecha between #" & Format$(a, "MM,DD,YY") & " # and #" & Format$(b, "MM,DD,YY") & " #"

rec_borrar.ActiveConnection = con
rec_borrar.LockType = adLockOptimistic
rec_borrar.CursorType = adOpenDynamic
rec_borrar.Source = QB
rec_borrar.Open


For i = 0 To rec_borrar.recordcount - 1
rec_borrar.Delete
rec_borrar.MoveNext
Next i

espero te ayude o mandame un mail por si puedo ayudarte