capturar hacia base de datos

[jose58]

aaa ok pero fijate algola progrmacion q estoy usando para consultar es esta

Private Sub Command3_Click()
Dim respuesta As Integer
Adodc1.Recordset.MoveFirst
While Not (Adodc1.Recordset.EOF)
If Text1.Text = Adodc1.Recordset.Fields.Item(0) Then
Text2.Text = Adodc1.Recordset.Fields.Item(1)
Text3.Text = Adodc1.Recordset.Fields.Item(2)
Text5.Text = Adodc1.Recordset.Fields.Item(3)
Text6.Text = Adodc1.Recordset.Fields.Item(4)
Text7.Text = Adodc1.Recordset.Fields.Item(5)
End If
Adodc1.Recordset.MoveNext
Wend
Adodc1.Recordset.MoveFirst
If Not Text1.Text = Adodc1.Recordset.Fields.Item(0) Then
respuesta = MsgBox("Por favor verifique el numero de cedula o si a ingresado datos", vbExclamation, "Advertencia")
End If
End Sub

y para guardar los datos que ya consulte es esta
Dim respuesta
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields.Item(0) = Text1.Text
If Text1.Text = "" Then
respuesta = MsgBox("Debe colocar la cedula del ejecutivo a evaluar", vbExclamation, "Advertencia")
End If
Adodc1.Recordset.Fields.Item(1) = Text2.Text
Adodc1.Recordset.Fields.Item(2) = Text3.Text
Adodc1.Recordset.Fields.Item(3) = Text5.Text
Adodc1.Recordset.Fields.Item(4) = Text6.Text
Adodc1.Recordset.Fields.Item(5) = Text7.Text
Adodc1.Recordset.Fields.Item(6) = Combo1
Adodc1.Recordset.Update
BORRAR

End Sub
Private Sub BORRAR()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""

End Sub

claro hay se ve que los datos se me duplican pero eeso es lo que no quiero... y solo tengo conectado atravez de ado sin modulos ni nada..