Problemas con busqueda en base de datos

[tazzito]

miCnn <- variable conexion a la bdd inicializada
miRst <- variable de tipo Recordset
set miSQL as string
miSQL = "select campo1, campo2, campoN from tabla where Nombre='" & trim(txtNombre.text) & "'"

miRst.open miSQL, miCnn

do until miRst.eof
listresultado.additem miRst("Apellido") & " " & miRst("Nombre")
miRst.movenext
loop

miRst.close
miCnn.close
Set miRst=nothing
set miCnn=nothing

es mas menos lo que necesitas no?