Erro de Sintaxe(operador faltando) na expressão de consulta

Gostaria que me ajudassem, estou realizando uma consulta no access, através de um código sql, e ao executar o teste na consulta esta ocorrendo o erro "erro de sintaxe(operador faltando) na expressão de consulta, segue o código abaixo:

Public Function Apartamentos(CodCond, Apto, informação)
Dim Dbs As Database, rst As Recordset, Sql As String
On Error GoTo Err_Apartamentos
   
   Set Dbs = CurrentDb
   Sql = "SELECT Apto_cond, "
   Sql = Sql & "Apto_ID, "
   Sql = Sql & "APto_Apto, "
   Sql = Sql & "Apto_Morador, "
   Sql = Sql & "Apto_TpMorador, "
   Sql = Sql & "Apto_Adm, "
   Sql = Sql & "Apto_CPF, "
   Sql = Sql & "Apto_RG, "
   Sql = Sql & "Apto_Residencial, "
   Sql = Sql & "Apto_Comercial, "
   Sql = Sql & "Apto_Celular1, "
   Sql = Sql & "Apto_Celular2 "
   Sql = Sql & "FROM [0004-Apartamentos]"
   Sql = Sql & "WHERE (((Apto_cond)=" & CodCond
   Sql = Sql & ") AND ((APto_Apto)=" & Apto & "));"
   
   Set rst = Dbs.OpenRecordset(Sql)
   If Not rst.EOF Then
       Select Case informação
       Case 1
           Apartamentos = rst("Apto_cond")
       Case 2
           Apartamentos = rst("Apto_ID")
       Case 3
           Apartamentos = rst("APto_Apto")
       Case 4
           Apartamentos = rst("Apto_Morador")
       Case 5
           Apartamentos = rst("Apto_Adm")
       Case 6
           Apartamentos = rst("Apto_CPF")
       Case 7
           Apartamentos = rst("Apto_RG")
       Case 8
           Apartamentos = rst("Apto_Residencial")
       Case 9
           Apartamentos = rst("Apto_Comercial")
       Case 10
           Apartamentos = rst("Apto_Celular1")
       Case 11
           Apartamentos = rst("apto_Celular2")
       Case Else
          Apartamentos = ""
       End Select
   Else
       Apartamentos = ""
   End If
   rst.Close
   Dbs.Close
   Exit Function
Err_Apartamentos:
   Apartamentos = ""
   Exit Function
End Function
grato
David

Seja bem vindo ao Forum!

Veja se não e problema com espaço antes do WHERE...

Sql = Sql & "FROM [0004-Apartamentos]"
Sql = Sql & " WHERE (((Apto_cond)=" & CodCond