setar critério de consulta pelo vb

bom dia, gostaria de setar um valor para o critério de uma consulta usando o vba.

ex: nome: joao

isso pelo vba como poderia fazer isso?

Olá!

Você pode construir a SQL pelo VBA, mas primeiro é preciso saber onde você quer utilizar essa consulta, relatório, formulário ou outro tipo de objeto.

eu preciso indicar para uma consulta que tem meses de janeiro a dezembro que o mes atual receberá = 0 de acordo com o select case abaixo: para depois realizar o envio de e-mail.


Mes = Me.Mes


Select Case Me.Mes
Case 1
'Abre um recordset
Set RsEmails = CurrentDb.OpenRecordset("ConsMailFrequenciaJan")
Case 2
'Abre um recordset
Set RsEmails = CurrentDb.OpenRecordset("ConsMailFrequenciaFev")
Case 3
'Abre um recordset
Set RsEmails = CurrentDb.OpenRecordset("ConsMailFrequenciaMar")
Case 4
'Abre um recordset
Set RsEmails = CurrentDb.OpenRecordset("ConsMailFrequenciaAbr")
Case 5
'Abre um recordset
Set RsEmails = CurrentDb.OpenRecordset("ConsMailFrequenciaMai")
Case 6
'Abre um recordset
Set RsEmails = CurrentDb.OpenRecordset("ConsMailFrequenciaJun")
Case 7
'Abre um recordset
Set RsEmails = CurrentDb.OpenRecordset("ConsMailFrequenciaJul")
Case 8
'Abre um recordset
Set RsEmails = CurrentDb.OpenRecordset("ConsMailFrequenciaAgo")
Case 9
'Abre um recordset
Set RsEmails = CurrentDb.OpenRecordset("ConsMailFrequenciaSet")
Case 10
'Abre um recordset
Set RsEmails = CurrentDb.OpenRecordset("ConsMailFrequenciaOut")
Case 11
'Abre um recordset
Set RsEmails = CurrentDb.OpenRecordset("ConsMailFrequenciaNov")
Case 12
'Abre um recordset
Set RsEmails = CurrentDb.OpenRecordset("ConsMailFrequenciaDez")
VarMes = RsEmails.Fields("Freq_Fev")

End Select

Desculpa, mas ainda não entendi!   

Para passar valores de critério para a consulta faça o seguinte:

Em um novo módulo crie uma variável global
Global SuaVariavel as String

Public Function fncFiltra()
fncFiltra = SuaVariavel
End function

Antes de gerar a consulta passe o valor que deseja para a variável SuaVariavel, exemplo
SuaVariavel = me.Mes

E na sua consulta no campo que deseja filtrar coloque no critério a função fncFiltra()

Não sei se é isso que deseja, mas...