Visual Basic - problemas con SQL

Dim bdperfo As Database
Dim doras As Recordset
Set bdperfo = OpenDatabase("E:\programas\perfo.mdb")
bdperfo.OpenRecordset ("select * from rendimie where bdperfora = '12'")
With bdperfo
Set doras = .OpenRecordset("rendimie")
End With
txtperfe.Text = doras.Fields("bdperfora")

Tengo esta instruccion pero cuando voy a mostrar txtperfe.text me da otro dato que no es 12 como puse en la instruccion sql
por favor me gustaria que me ayudaran

1.- ¿por qué abres dos recordsets?
2.- ¿bdperfora que tipo de datos es, numerico o texto?

Yo lo haría de la siguiente forma:

Set bdperfo = OpenDatabase("E:\programas\perfo.mdb")

With bdperfo
Set doras = .OpenRecordset("select * from rendimie where bdperfora = 12",dbopendynaset)
End With
txtperfe.Text = doras.Fields("bdperfora")

Si bdperfora es numerico no le pongo comillas, y si es tipo texto lo pondría de la siguiente manera

Set doras = .OpenRecordset("select * from rendimie where bdperfora = " & chr$(34) & "12" & chr$(34),dbopendynaset)

Espero que te sirva.

txtperfe.text te muestra cualquier dato ya que le asignas lo que tiene el recordset doras, pero este recordset lo abris de la tabla rendimie sin ningun filtro!!!:
Set doras = .OpenRecordset("rendimie")
Ademas cuando haces openRecordset con el filtro no se lo asignas a ningun recordset.??!!