Estás mezclando instrucciones de DAO con instrucciones de ADO...
Puesto que estás empezando, debo aconsejarte que te olvides de DAO, porque hasta MicroSoft ya lo ha hecho. Pásate a ADO, que te va a resultar sencillísimo:
Quita la Referencia a Dao y referencia
Microsoft ADO 3.6
Sustituye Dim rcs As Recordset por
Dim rcs As New Recordset, y Public base As Database por
Public base As New Connection.
Las líneas
Código:
Set base = WRk.OpenDatabase(Arch)
Set rcs = base.OpenRecordset("select * from tbruta") las cambias por
Código:
Base.CursorLocation = adUseClient
Base.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Arch & ";Persist Security Info=False"
rcs.Open "select * from tbruta", Base, adOpenStatic, adLockOptimistic Y... a trabajar, espero que sin problemas. No busques el método .Edit porque no existe; edita directamente con
rcs!fldruta = "Variable que desees grabar"
sin olvidar finalizar la edición con
rcs.Update