Visual Basic - modificar un registro

buena's tengo q modificar un registro y no he podido tengo el siguiente codigo Private Sub cmd_actualizar_Click()
Dim disp As String
sql = "select * from libro"
rslibro.Open sql, Cn, adOpenStatic, adLockOptimistic
cmd_actualizar.Visible = False
frlibro.Enabled = False
Call llenardatos
With rs
If optdisponible(0).Value = True Then disp = "Sí"
If optdisponible(1).Value = True Then disp = "No"
rslibro(8) = disp
.Update
End With
End Sub
y me da un error q no se puede realizar si el objeto esta abierto y se resalta esta linea de codigo (rslibro.Open sql, Cn, adOpenStatic, adLockOptimistic), si quito esta linea de codigo me da un error q no se puede por q el objeto esta cerrado. por fa si alguien me puede decir q esta malo o si tiene otra manera de hacerlo se lo agradeceria
gracias..!