No DAO uso:

 

    TBPRODUTOS.Index = "Prod"
    TBPRODUTOS.Seek "=", Cboproduto.Text
        If TBPRODUTOS.NoMatch = False Then
            txtcodigo.Text = TBPRODUTOS("CÓD")
            txtitem.Text = TBPRODUTOS("Item")
            txtunidade.Text = TBPRODUTOS("Unid")
            txtgrupamento.Text = TBPRODUTOS("Grupamento")
            txtcota.Text = TBPRODUTOS("Cota")
            txtmensal.Text = TBPRODUTOS("Mensal")
            txtsaldo.Text = TBPRODUTOS("saldo")
            txtunit.Text = TBPRODUTOS("Unit")
            txtvmensal.Text = TBPRODUTOS("Mensal1")
            txttotal.Text = TBPRODUTOS("Total")

     end if
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Como faço a mesma coisa com ADO

Leornador, eu isso o acesso por recordset assim

dim cnn As New adodb.Connection

Dim rst as new recordset

 

' Faz conecxao     
    cnn.Mode = adModeReadWrite
    cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
         "Data Source=c:anco.mdb;Jet OLEDB:Database Password=123;"
    cnn.Open

 

'faz leitura
    rst.Open "Select * from prod where codigo = " & cboproduto.text, cnn, adOpenStatic

 

txtcodigo = rst.fields![codigo]

.... e etc

 

Veja se ajuda