Consultas sql en access

[s4rk4]

mira, te muestro las tablas para que te hagas una idea.

EDIFICIOS

Edificio provincia
Madrid MADRID
Avila AVILA
Segovia SEGOVIA
Santa Cruz TENERIFE
Salamanca SALAMANCA
Merida BADAJOZ
Toledo TOLEDO
Ciudad Real CIUDAD REAL
Caceres CACERES
Gran Canaria LAS PALMAS
Barcelona BARCELONA
Logrono LA RIOJA
Santander CANTABRIA
DONOSTIA GUIPUZCOA
Bilbao VIZCAYA
Vitoria ALAVA
Burgos BURGOS
Pamplona NAVARRA
Guadalajara GUADALAJARA
Almeria ALMERIA
Malaga MALAGA
Jaen JAEN
Sevilla SEVILLA
Jerez CADIZ
Cordoba CORDOBA
Granada GRANADA
Huelva HUELVA
Valencia VALENCIA
Castellon CASTELLON
Alicante ALICANTE
Albacete ALBACETE
Murcia MURCIA
Cuenca CUENCA
Palma MALLORCA
Girona GIRONA
Lleida LLEIDA
Huesca HUESCA
Soria SORIA
Zaragoza ZARAGOZA
Tarragona TARRAGONA
Teruel TERUEL
Palencia PALENCIA
Zamora ZAMORA
A Coruna A CORUÑA
Lugo LUGO
Valladolid VALLADOLID
Gijon GIJON
Vigo VIGO
Leon LEON
Orense ORENSE

EXCEPCIONES

EDIFICIO
PALENCIA
TOLEDO
HUESCA
TERUEL
JAEN
SORIA
LOGRONO
SEGOVIA
LUGO
CUENCA

Lo que tengo por el momento es ésto

Dim db As DAO.Database
Dim strSQL As String
Dim strSQL2 As String
Dim strCarpeta As String
Dim strBaseDatos As String
Dim strTabla1 As String
Dim strTabla2 As String

strCarpeta = CurrentProject.Path
strBaseDatos = strCarpeta & "\Cálculo_Alquiler.mdb"
strTabla1 = "poblaciones"
strTabla2 = "edificios"
Set db = OpenDatabase(strBaseDatos)


strSQL = "SELECT provincia FROM strTabla1 WHERE poblacion = '" & Me.Cuadro_combinado4 & "'; "
MsgBox strSQL
strSQL = "SELECT edificio FROM strTabla2 WHERE provincia = & strSQL &"


(El msgBox lo pongo para ver lo que se queda en strSQL, pero no se hace la consulta, porque no se hace la consulta?????)