Tio que consulta quieres hacer exactamente da un ejemplo, las 2 tablas estan relacionadas correctamente atravez del codigo, me parece que debes unir las tablas.
Estos 2 campos estan relacionados osea contienen la misma informacion tblpresupuestos.codigo y tblcpresupuestos.codigo, Si es asi entonces une las tablas
Código:
sql = "SELECT A.*,B.* FROM tblpresupuestos A INNER JOIN tblcpresupuestos B ON A.codigo=B.codigo WHERE A.codigo = '" & cadena & "' ORDER BY A.codigo"
Si no es asi entonces utiliza 2 consultas separadas y luego unelas con la clausula union