Visual Basic - VB666

Hola buenas yo estoy completando un sistema de inventario y tienen dos rutinas una Private Sub BuscarInventario()
Dim BuscarInventario As ADODB.Recordset
Set BuscarInventario = New ADODB.Recordset

With BuscarInventario
.Open "Select * From Inventario Where Inv_NroParte = '" & Txt_Serv_NroParte.Text & "'", CCone
If .EOF = False Then
Existencia = !inv_cantidad
If Existencia >= CInt(Cmb_Serv_Cant.Text) Then
Disponible = Existencia - CInt(Cmb_Serv_Cant.Text)
MsgBox "Despues de esta Operacion Quedan en existencia las siguientes Unidades: " + Str(Disponible), vbInformation, "Actualizacion de Existencias del Inventario"
LlenarFlex
Resp = MsgBox("¿Desea Elegir Otro Consumible?", vbYesNo + vbQuestion, "Agregar")
If Resp = vbYes Then
Actualizar
Else
Actualizar
End If
Else
MsgBox "La solicitud Excede las Existencia...Unidades Disponibles:" + Str(Existencia), vbCritical, "Disponibilidad de Inventario"
Cmb_Serv_Cant.SetFocus
End If
End If
End With

End Sub
que busca en el inventario

y otra Private Sub Actualizar()
Dim Actualizar As ADODB.Recordset
Set Actualizar = New ADODB.Recordset
With Actualizar
.Open "Select * From Inventario Where Inv_NroParte = '" & Txt_Serv_NroParte.Text & "'", CCone, 2, 3
If .EOF = False Then
.Fields("Inv_Cantidad").Value = Disponible
.Update
Inicializar
End If
End With
End Sub

que actualiza los datos entonces yo quiero crear oitra que restaure los datos modificados en la rutina actualizar en la basde de datos hecha en access porfa si pueden ayudenme

es que lo estas hasiendo en la vercion 666 y vb saltó de la vercion 6 a la 2005
es desir se dejo atras 1999 verciones
es por eso por lo que no os sale.