Foros del web, para los que viven de bits

buenas tardes a todos vran estoy diseñando un sistemita en el cual deseo consultar datos e incluir datos pero que sucede que yo ´puedo consultar sin ningun probelma pero yo quiero agregar esos datos que consulte en otra base de datos lo hice creando otro ado aparte de consultar y este es el codigo
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields.Item(0) = Text1.Text
If Text1.Text = "" Then
MsgBox ("Introdusca la cedula")
End If
Adodc2.Recordset.Fields.Item(1) = Text2.Text
If Text2.Text = "" Then
MsgBox ("Introdusca la fecha")
End If
Adodc2.Recordset.Fields.Item(2) = Text3.Text
If Text3.Text = "" Then
MsgBox ("Introdusca el supervisor")
End If
Adodc2.Recordset.Fields.Item(0) = Text5.Text
If Text5.Text = "" Then
MsgBox ("Introdusca el skill")
End If
Adodc2.Recordset.Fields.Item(0) = Text6.Text
If Text6.Text = "" Then
MsgBox ("Introdusca jphone")
End If
Adodc2.Recordset.Update
BORRAR
End Sub
Private Sub BORRAR()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
End Sub
pero cuado quiero agregar los datos consultados me dice esto

variable de tipo objetc o la variable de bloque with no esta establecido que pasara hay? si algune me puede ayudar le estaria agradecido.

halooooooooooo nadie sabe