Consulta con conexión ADO

Estoy haciendo una conexión mediante ADO y cuendo en el formulario veo los registros y quiero modificarlo, eliminarlos hacer una búsqueda etc me sale el siguiente mensaje
" EL recordset actual no admite actualizaciones.Puede puede ser una limitación del proveedor o del tipo del bloqueo seleccionado."
Lo que hago es lo siguiente
Dim Cn as ADODB.connection
dim Rs as ADODB.recordset
Private sub form_load()
Set cn = New ADODB.Connection
With cn
.Provider = "Microsoft.jet.OLEDB.4.0"
.Open "C:\Prueba ADO\Presupuestos.MDB"
Set rs = New ADODB.Recordset
rs.Open "select * from clientes", cn, adOpenStatic
Set Text1.DataSource = rs
Text1.DataField = "ID_Cliente"
Set Text2.DataSource = rs
Text2.DataField = "Nombre"
Set Text3.DataSource = rs
Text3.DataField = "Apellidos"
Set Text4.DataSource = rs
Text4.DataField = "Direccion"
Set Text5.DataSource = rs
Text5.DataField = "Ciudad"
Set Text6.DataSource = rs
Text6.DataField = "Telefono"
Set Text7.DataSource = rs
Text7.DataField = "Fax"
Set Text8.DataSource = rs
Text8.DataField = "Mail"
Set Text9.DataSource = rs
Text9.DataField = "Comentarios"
End With
End Sub
Si puedes mandarme un ejemplo mejor así lo puedo estudiar.