[Resolvido]Ajuda na pesquisa

Bom dia

Tenho uma caixa de texto e uma listbox, onde eu começo a digitar o nome vai aparecendo os clientes. A função é a seguinte:

Dim C As String, X As String
X = Me.txtBusca.Text
C = " where nome_cliente like '*" & X & "*' ORDER BY nome_cliente"
Me.lstClientes.RowSource = " select * from tbl_Clientes " & C

Mais como agora estou implementando o sistema para varias empresas possam ser cadastradas, eu estava precisando que ao digitar ele somente aparecesse somente os clientes da empresa selecionada.

Sendo que tenho um textbox "txtNomeEmpresa" no formulário frm_Receitas e na tabela tbl_Clientes tenho o campo "NomeEmpresa".

Algue´m pode me ajudar ajudar acrescente (na função acima) para ao digitar ele apenas pegar os clientes da empresa selecionada?

Bom dia.

Segue um exemplo de um projeto que fiz para um amigo onde tinha critério de empresa e ativo.

Código:

Me.lstBusca.RowSource = "Select CodServico,DataPrevisao,Usuario,TipoEquipamento,Departamento,Empresa,Status From " & _
"tblServico Where Usuario Like '*" & Me.txtbuscar.Text & "*' and tblServico.Empresa = cboEmpresa and tblServico.Status = 'ATIVO'"

Dim C As String, X As String
X = Me.txtBusca.Text
C = " where nome_cliente like '*" & X & "*' and tblTabela.Empresa = NomeEmpresa ORDER BY nome_cliente"
Me.lstClientes.RowSource = " select * from tbl_Clientes " & C

Boa Tarde formiga10x, modifique a outra função que você passou e deu certo. Veja:

Código:

Me.lstClientes.RowSource = "Select Codigo,Nome_Cliente,Doc1,Endereco,Bairro,CEP,Cidade,UF,NomeEmpresa From " & _
"tbl_Clientes Where Nome_Cliente Like '*" & Me.txtBusca.Text & "*' and tbl_Clientes.NomeEmpresa = txtNomeEmpresa"


Muito obrigado.