Truco de visual basic 6.0 para actualizar un recordset
Rs.Open "SELECT CAMPO FROM TABLA WHERE TABLAID=" & Codigo, Cn, adOpenDynamic, adLockPessimistic Rs("CAMPO") = Me.text1.Text Rs.Update Rs.Close