[Resolvido]Povoar campo desvinculado

Utilizo este código para povoar um campo (Combox) desvinculado em um formulário desvinculado. Mas agora necessito que tenha uma condição para retornar os dados.

Private Sub fncCFunc()
Dim bd As Database
Dim rs As Recordset
Dim strSql As String

strSql = "SELECT aqui informo os campos da tabela FROM minha Tabela ORDER BY campo a ser classificado;"

Set bd = OpenDatabase("caminho do banco de dados", False, False, ";senha do banco de dados")

Set rs = bd.OpenRecordset(strSql, dbOpenSnapshot)
Do Until rs.EOF
Me!campodoformulario.AddItem rs!campodatabela & ";" & rs!outrocampo
rs.MoveNext
Loop

rs.Close
Set rs = Nothing
bd.Close
Set bd = Nothing
End Sub

Minha intensão é que este código retorne somente os funcionários cujo campo da tabela [situação] = "ATIVO"

Bom dia,
basta por uma cláusula WHERE na sua SQL. Ficaria assim a string da sql:

strSql = "SELECT aqui informo os campos da tabela FROM minha Tabela WHERE [situação] = 'ATIVO' ORDER BY campo a ser classificado;"

Eu tentei isso mas, não deu certo. Pode ser que eu tenha feito algo errado. ("comi alguma letra")

Então Avelino, como eu disse na mensagem anterior, com certeza eu fiz alguma coisa errada pois, acrescentei a cláusula WHERE novamente e deu certo.

Respondendo sua pergunta, o campo é denominado "Situacao" e configurado como String (texto).

abraços aos mestres.

Ótimo que deu certo!