actualizar registro en dbase

[Gakex]

Hola una pregunta la parte del with RgPersonal es necesaria?

solo le agregue una linea pero no se si funcione me cuentas si funciono.

Código:

Public dbbase As ADODB.Connection
Public RgPersonal As ADODB.Recordset

Private Sub Command1_Click()

 ejecuta ("Provider=MSDASQL.1;Persist Security Info=False;Data Source=base;Initial Catalog=C:\directorio")
 MsgBox ("Proceso concluido")
End Sub
Private Sub ejecuta(cadena As String)
Set dbbase = New ADODB.Connection
       With dbbase
                .ConnectionString = cadena
                .Open
      End With
  
Set RgPersonal = New ADODB.Recordset
      With RgPersonal
               .ActiveConnection = dbbase
               .CursorType = adOpenDynamic
               .LockType = adLockOptimistic
      End With
  
valor = "MP20040001TT"
  
cad = "SELECT * FROM TABCAJA WHERE TIPO_TARIM = 'MP20040001'"

 RgPersonal.Open cad, dbbase, adOpenKeyset, adLockOptimistic, adasynfech
 
Do While Not RgPersonal.EOF

     Text1.Text = RgPersonal!TIPO_TARIM
     Text2.Text = RgPersonal!TIPO_TARIM
   
     cad = "UPDATE TABCAJA set TIPO_TARIM  =" & valor & " WHERE TIPO_TARIM = " & RgPersonal!TIPO_TARIM
     on error resume next
     dbbase.Execute cad

     RgPersonal.MoveNext

 Loop

 RgPersonal.Close
 dbbase.Close
 
End Sub