Private Sub cmdbuscar_Click()
Adopract.RecordSource = "SELECT cod_presctacion,descripcion FROM inos WHERE (cod_prestacion = '42.01.01' )"
end sub
la base de datos se llama "INOS" y la tabla tammbien
la tablka tiene 3 campos cod_prestacion, descripcion y precio
graicas
