Problema con ADO y VB6

[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