Access 2007 y visual basic 2008, error ar guardar lo datos

[01munrra]

saludos le comento estoy con vb y una tabla access y lo que quiro es hacer es que me guarde los datos tipeado desde un formulario este es el codigo

Código (vb) [Seleccionar] Expandir


         
        Dim Consulta1 As String
        Dim Consulta2 As String
        Dim resultado1 As ADODB.Recordset
        Dim resultado2 As ADODB.Recordset

        If accion = "nuevo" Then
            If IdcedulaTextBox.Text = "" Or NombresTextBox.Text = "" Or ApellidosTextBox.Text = "" Or DireccionTextBox.Text = "" Or TelefonoTextBox.Text = "" Then
                MessageBox.Show("le faltan Campos por completar", "Mensaje", MessageBoxButtons.OK)
            Else
                Consulta1 = "select * from cliente where idcedula = '" & IdcedulaTextBox.Text & "'"
                Consulta2 = "select * from natural where cedula= '" & IdcedulaTextBox.Text & "'"

                resultado1 = Conexion.Execute(Consulta1)
                resultado2 = Conexion.Execute(Consulta2)
                 
                ' consulta de por si ya esta registrado
                If resultado1.BOF <> True And resultado2.BOF <> True Then
                    MessageBox.Show("El Cliente ya esta registrado", "Mensaje", MessageBoxButtons.OK)
                    IdcedulaTextBox.Text = ""
                    NombresTextBox.Text = ""
                    ApellidosTextBox.Text = ""
                    DireccionTextBox.Text = ""
                    TelefonoTextBox.Text = ""
                Else
                    Registro1 = "insert into cliente(idcedula,direccion,telefono) values('" & IdcedulaTextBox.Text & "','" & DireccionTextBox.Text & "','" & TelefonoTextBox.Text & "')"
                    Conexion.Execute(Registro1)

                    Registro2 = "insert into natural(cedula,nombres,apellidos) values('" & IdcedulaTextBox.Text & "','" & NombresTextBox.Text & "','" & ApellidosTextBox.Text & "')"
                    Conexion.Execute(Registro2)

                    MessageBox.Show("Registro Exitoso", "Mensaje", MessageBoxButtons.OK)
                    IdcedulaTextBox.Text = ""
                    NombresTextBox.Text = ""
                    ApellidosTextBox.Text = ""
                    DireccionTextBox.Text = ""
                    TelefonoTextBox.Text = ""
                End If

                End If
            End If
Cerrar anuncio



me lanza un error en         

resultado2 = Conexion.Execute(Consulta2)

este es el errror
Error no especificado (Exepcion de HRESULT : 0x080004005(E_FAIL) )

que es cuando estoy tratando de consultar el registro, por si ya esta registrado...

cual sera el error???????

[XxwiyavixX]

Hola;
No, tengo ni la mas minima idea 

[01munrra]

no ayudas mucho............  aunque ya descubri el problema,,,,, estaba en las tablas,,,,,,,,  gracias de igual forma