variable tipo Object

[roscon]

Private Sub Form_Load()
On Error GoTo Errores ' control de eroores
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
'
If Not Adodc2.Recordset.BOF Then
Adodc2.Recordset.MoveFirst 'Vaciar tabla comentadios
End If
While Not Adodc2.Recordset.EOF
Adodc2.Recordset.Delete
Adodc2.Recordset.Update
Adodc2.Recordset.MoveNext
Wend
'
If Not Adodc4.Recordset.BOF Then
Adodc4.Recordset.MoveFirst 'Vaciar tabla Obras
End If
While Not Adodc4.Recordset.EOF
Adodc4.Recordset.Delete
Adodc4.Recordset.Update
Adodc4.Recordset.MoveNext
Wend
'
If Not Adodc6.Recordset.BOF Then
Adodc6.Recordset.MoveFirst 'Vaciar tabla clientes
End If
While Not Adodc6.Recordset.EOF
Adodc6.Recordset.Delete
Adodc6.Recordset.Update
Adodc6.Recordset.MoveNext
Wend
'
If Not Adodc8.Recordset.BOF Then
Adodc8.Recordset.MoveFirst 'Vaciar tabla administradores
End If
While Not Adodc8.Recordset.EOF
Adodc8.Recordset.Delete
Adodc8.Recordset.Update
Adodc8.Recordset.MoveNext
Wend
'
Adodc1.Recordset.MoveFirst 'Tabla COmentarios
While Not Adodc1.Recordset.EOF
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields("idcomentario") = Adodc1.Recordset.Fields("idcomentario")
Adodc2.Recordset.Fields("idobra") = Adodc1.Recordset.Fields("idobra")
Adodc2.Recordset.Fields("fecha") = Adodc1.Recordset.Fields("fecha")
Adodc2.Recordset.Fields("comentario") = Adodc1.Recordset.Fields("comentario")
Adodc2.Recordset.Fields("tipo") = Adodc1.Recordset.Fields("tipo")
Adodc2.Recordset.Update
Adodc1.Recordset.MoveNext
Wend
'
Adodc3.Recordset.MoveFirst 'Tabla Obras
While Not Adodc3.Recordset.EOF
If FechaEntrada >= 1 / 1 / 2008 Then 'Fecha de entrada obra
Adodc4.Recordset.AddNew
Adodc4.Recordset.Fields("IdObra") = Adodc3.Recordset.Fields("IdObra")
Adodc4.Recordset.Fields("IdObraPadre") = Adodc3.Recordset.Fields("IdObraPadre")
Adodc4.Recordset.Fields("IdObraPadre") = Adodc3.Recordset.Fields("IdObraPadre")
Adodc4.Recordset.Fields("IdProveedor") = Adodc3.Recordset.Fields("IdProveedor")
Adodc4.Recordset.Fields("Direccion") = Adodc3.Recordset.Fields("Direccion")
Adodc4.Recordset.Fields("Poblacion") = Adodc3.Recordset.Fields("Poblacion")
Adodc4.Recordset.Fields("obramin") = Adodc3.Recordset.Fields("obramin")
Adodc4.Recordset.Fields("llamada") = Adodc3.Recordset.Fields("llamada")
Adodc4.Recordset.Fields("IdCliente") = Adodc3.Recordset.Fields("IdCliente")
Adodc4.Recordset.Fields("IdAdministrador") = Adodc3.Recordset.Fields("IdAdministrador")
Adodc4.Recordset.Fields("Problema") = Adodc3.Recordset.Fields("Problema")
Adodc4.Recordset.Fields("TipoObra") = Adodc3.Recordset.Fields("TipoObra")
Adodc4.Recordset.Fields("ArrayComentarios") = Adodc3.Recordset.Fields("ArrayComentarios")
Adodc4.Recordset.Fields("FechaEntrada") = Adodc3.Recordset.Fields("FechaEntrada")
Adodc4.Recordset.Fields("FechaPresupuesto") = Adodc3.Recordset.Fields("FechaPresupuesto")
Adodc4.Recordset.Fields("FechaAceptacion") = Adodc3.Recordset.Fields("FechaAceptacion")
Adodc4.Recordset.Fields("FechaObraEmpieza") = Adodc3.Recordset.Fields("FechaObraEmpieza")
Adodc4.Recordset.Fields("FechaObraTermina") = Adodc3.Recordset.Fields("FechaObraTermina")
Adodc4.Recordset.Fields("FechaFactura") = Adodc3.Recordset.Fields("FechaFactura")
Adodc4.Recordset.Fields("Estado") = Adodc3.Recordset.Fields("Estado")
Adodc4.Recordset.Fields("garantia") = Adodc3.Recordset.Fields("garantia")
Adodc4.Recordset.Fields("globalsecretario") = Adodc3.Recordset.Fields("globalsecretario")
Adodc4.Recordset.Fields("adjudicaciondirecta") = Adodc3.Recordset.Fields("adjudicaciondirecta")
Adodc4.Recordset.Fields("SistemaPresupuesto") = Adodc3.Recordset.Fields("SistemaPresupuesto")
Adodc4.Recordset.Update
End If
Adodc3.Recordset.MoveNext
Wend
'
Adodc5.Recordset.MoveFirst 'Tabla clientes
While Not Adodc5.Recordset.EOF
Adodc6.Recordset.AddNew
Adodc6.Recordset.Fields("IdCliente") = Adodc5.Recordset.Fields("IdCliente")
Adodc6.Recordset.Fields("IdAdministrador") = Adodc5.Recordset.Fields("IdAdministrador")
Adodc6.Recordset.Fields("Nombr") = Adodc5.Recordset.Fields("Nombr")
Adodc6.Recordset.Fields("Tipo") = Adodc5.Recordset.Fields("Tipo")
Adodc6.Recordset.Fields("Direccion") = Adodc5.Recordset.Fields("Direccion")
Adodc6.Recordset.Fields("CP") = Adodc5.Recordset.Fields("CP")
Adodc6.Recordset.Fields("Poblacion") = Adodc5.Recordset.Fields("Poblacion")
Adodc6.Recordset.Fields("Comentario") = Adodc5.Recordset.Fields("Comentario")
Adodc6.Recordset.Update
Adodc5.Recordset.MoveNext
Wend
'
Adodc7.Recordset.MoveFirst 'tabla Administradores
While Not Adodc7.Recordset.EOF
Adodc8.Recordset.AddNew
Adodc8.Recordset.Fields("IdAdministrador") = Adodc7.Recordset.Fields("IdAdministrador")
Adodc8.Recordset.Fields("Nombre") = Adodc7.Recordset.Fields("Nombre")
Adodc8.Recordset.Fields("Tipo") = Adodc7.Recordset.Fields("Tipo")
Adodc8.Recordset.Fields("Telefono") = Adodc7.Recordset.Fields("Telefono")
Adodc8.Recordset.Fields("TelefonoFax") = Adodc7.Recordset.Fields("TelefonoFax")
Adodc8.Recordset.Fields("TelefonoMovil") = Adodc7.Recordset.Fields("TelefonoMovil")
Adodc8.Recordset.Fields("Direccion") = Adodc7.Recordset.Fields("Direccion")
Adodc8.Recordset.Fields("CP") = Adodc7.Recordset.Fields("CP")
Adodc8.Recordset.Fields("Poblacion") = Adodc7.Recordset.Fields("Poblacion")
Adodc8.Recordset.Fields("email") = Adodc7.Recordset.Fields("email")
Adodc8.Recordset.Fields("email") = Adodc7.Recordset.Fields("email")
Adodc8.Recordset.Fields("contacto") = Adodc7.Recordset.Fields("contacto")
Adodc8.Recordset.Fields("comentario") = Adodc7.Recordset.Fields("comentario")
Adodc8.Recordset.Fields("login") = Adodc7.Recordset.Fields("login")
Adodc8.Recordset.Fields("pass") = Adodc7.Recordset.Fields("pass")
Adodc8.Recordset.Fields("prioridad") = Adodc7.Recordset.Fields("prioridad")
Adodc8.Recordset.Update
Adodc7.Recordset.MoveNext
Wend
'
End 'Finalizar aplicacion
'
Errores:
MsgBox Err.Description
End Sub

Este es todo mi codigo, es solo una aplicacion que me vuelque el contenido que yo quiero de una tabla a otra.