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

 
        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???????

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