Consultar registro desde excel con ado

Estimados amigos, de la manera mas respetuosa quisiera que alguien me ayudara con la siguiente cuestión: Tengo una base de datos en access y quisiera hacer una consulta a ella mediante ado, mediante un combobox ya pude obtener el nombre del articulo el cual se encuentra en el segundo campo ya que el primero es para el ID del producto, sin embargo lo que quiero es que al momento de seleccionar el nombre del producto en el combobox me traiga el registro completo a partir de la celda A1 hacia abajo, he intentado con lo siguiente pero no me funciona, ¿alguno de ustedes puede darme una mano?

Private Sub ComboBox1_Click()
Set rs1 = New ADODB.Recordset
Set cnn1 = New ADODB.Connection
cnn1.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=e:\22\BDproductos.mdb;Persist Security Info=False"
Set rs1 = cnn1.Execute("select nombre from productos")
Range("a1") = rs1.Fields("código").Value
Range("a2") = rs1.Fields("nombre").Value
Range("a3") = rs1.Fields("dirección").Value
rs1.Close
Set rs1 = Nothing
cnn1.Close
Set cnn1 = Nothing
End Sub

0

Añade tu respuesta

Haz clic para o