Visual Basic - Recordset de solo lectura

Estoy haciendo un formulario directamente desde Access para que borre unos registros de una tabla intermedia (Adjunto el código). La consulta SQL Funciona bien, pero luego al hacer el rs.delete access me dice que no puede porque es "SOLO LECTURA". ¿Cómo hago para que el recordset sea también de escritura para que me permita borrar una vez que hice la consulta?

Agradeceré toda la ayuda que me puedan brindar.

-------Código------

Private Sub Comando8_Click()
Dim db As Database
Dim rs As Recordset
Dim sql As String

If Lista0.ListIndex < 0 Then
MsgBox "Debe seleccionar algún centro de la lista"
Else
Set db = OpenDatabase("Hmédico.mdb") 'Busca la base de datos HMedico
MsgBox Lista0.Value
sql = "SELECT historiaxcentro.codhistoria, historiaxcentro.codcentro "
sql = sql & "from historiaxcentro, centros where historiaxcentro.codcentro=centros.codcentro "
sql = sql & "and descripcion='" & Lista0.Value
sql = sql & "' and historiaxcentro.codhistoria='" & Texto0.Value & "'"
MsgBox sql
Set rs = db.OpenRecordset(sql)
If Not rs.EOF Then
rs.Delete
Else
MsgBox "la consulta es 0"
End If
End If
End Sub

En la parte donde haces ..

Set rs = db.OpenRecordset(sql)

ponlo así
Set rs = db.OpenRecordset(sql,dbOpenDynaset)