Problema con ADO y VB6

[cristianeme]

Buenas !
Necesito de su gran ayuda!

Tengo una tabla compuesta por 4 columnas, de los cuales tengo que retirar los datos de dos y modificarlos.
con que sentecia de sql puedo hacerlo?
lo que tengoque hacer es modificar uno por uno, ya que todos tienen valores diferentes, y lo que tengo que modificar es lo siguiente
Tengo las fechas en formato AAAAMMDD y tengo que pasarlas a DD/MM/AAAA
Entonces esto es lo que hice con ADODC:

Código:

variable = Adodc2.Recordset.Fields(2)
    diai_variable = Right(variable, 2)
    mesi_variable = Mid(variable, 5, 2)
    anoi_variable = Left(variable, 4)
    fecha_i = diai_variable & "/" & mesi_variable & "/" & anoi_variable
    Adodc2.Recordset.Fields(2) = fecha_i
    'MsgBox "" + CStr(fecha_i) + ""
    variable_f = Adodc2.Recordset.Fields(3)
    diaf_variable = Right(variable_f, 2)
    mesf_variable = Mid(variable_f, 5, 2)
    anof_variable = Left(variable_f, 4)
    fecha_f = diaf_variable & "/" & mesf_variable & "/" & anof_variable
    Adodc2.Recordset.Fields(3) = fecha_f
    'Adodc1.Recordset.Update
    Adodc2.Recordset.MoveNext

Peeeero, si lo hago paso por paso (F8) funciona bien, pero si lo corro al programa normalmente, arroja errores del tipo "El motor de base de datos Microsoft Jet detuvo el proceso porque otro uaurio está intentando modificar los mismos datos que usted al mismo tiempo". Pero paso a paso, esto anda perfecto, no arroja errores y lo reflejo con un Datareport.

Me podrian ayudar como hacerlo con código SQL po favor! Seria algo como:
Ado.execute UPDATE ?

Por favor, es como urgente casi !!

Muchas gracias !!!!

[Gakex]

Puedes poner

Código:

on error resume next

    variable = Adodc2.Recordset.Fields(2)
    diai_variable = Right(variable, 2)
    mesi_variable = Mid(variable, 5, 2)
    anoi_variable = Left(variable, 4)
    fecha_i = diai_variable & "/" & mesi_variable & "/" & anoi_variable
    Adodc2.Recordset.Fields(2) = fecha_i
    'MsgBox "" + CStr(fecha_i) + ""
    variable_f = Adodc2.Recordset.Fields(3)
    diaf_variable = Right(variable_f, 2)
    mesf_variable = Mid(variable_f, 5, 2)
    anof_variable = Left(variable_f, 4)
    fecha_f = diaf_variable & "/" & mesf_variable & "/" & anof_variable
    Adodc2.Recordset.Fields(3) = fecha_f
  
    Adodc2.Recordset.MoveNext