[Resolvido]Como Criar Consulta em Vba com parametro em string

Tenho esta consulta criada em sql:
SELECT Alunos.CodigoAluno, Alunos.NomeAluno, Alunos.CodigoClasse, Alunos.Situacao
FROM Alunos
WHERE Alunos.CodigoClasse= Formularios!DetalhesAulas!CodigoClasse AND Alunos.Situacao="Ativo";
basicamente ela vai buscar os alunos de uma determinada classe e que sejam ativos.

mas gostaria de criar a mesma consulta em vba:
strsql = "SELECT CodigoAluno, NomeAluno, CodigoClasse, Situacao "
strsql = strsql & "FROM Alunos"
strsql = strsql & " where CodigoClasse = " & Me.CodigoClasse
strsql = strsql & " and Situacao = Ativo"

o erro só aparece quando coloco as aspas duplas porque tanto na construção do código quanto no parâmetro tem aspas duplas. Dai quando rodo o codigo o sistema trava.

Olá Rubens, teste assim:

strsql = "SELECT CodigoAluno, NomeAluno, CodigoClasse, Situacao "
strsql = strsql & "FROM Alunos"
strsql = strsql & " where CodigoClasse = '" & Me.CodigoClasse &"'"
strsql = strsql & " and Situacao = Ativo"

Ou assim:

strsql = "SELECT CodigoAluno, NomeAluno, CodigoClasse, Situacao "
strsql = strsql & "FROM Alunos"
strsql = strsql & " where CodigoClasse = '" & Me.CodigoClasse &"'"
strsql = strsql & " and Situacao = 'Ativo'"

Abraço

consegui assim:
strsql = "SELECT CodigoAluno, NomeAluno, CodigoClasse, Situacao "
strsql = strsql & "FROM Alunos"
strsql = strsql & " where CodigoClasse = " & Me.CodigoClasse
strsql = strsql & " and Situacao = 'Ativo'"

Obrigado a todos.

Olá Rubens, obrigado pelo retorno.
O campo Me.CodigoClasse deve ser numérico e o da situação tipo string.
Fica a dica.
Abraço