[Resolvido]Execução de consulta baseada em textbox

Olá Pessoal,

O problema é o seguinte criei um botão pra executar uma consulta e mostrar o resulta ao usuário, mas ao clicar dá o seguinte erro: "Erro em tempo de execução 7874 e diz q não pode localizar o objeto"

Código:

        Comando = "SELECT * FROM tb_Obra WHERE codEmpreendimento = " & txtCodEmpreendimento & ""
        DoCmd.OpenQuery Comando, acViewNormal, acReadOnly

Agradeço a ajuda

Pessoal consegui resolver com o seguinte código no botão:

Código:

Private Sub btnDadosObra_Click()
    'cria consulta única que utiliza diversos critérios
    Dim Sql As String
 
    Sql = " SELECT * "
    Sql = Sql & " FROM tb_Obra"
    'where
    Sql = Sql & " WHERE codEmpreendimento = " & txtCodEmpreendimento & ""
   
    Dim db As DAO.Database
    Set db = CurrentDb()
    Dim rs As DAO.Recordset
    Set rs = db.OpenRecordset(Sql)
 
    If Not rs.EOF Then 'verifica se a consulta retornou vazia
    Else
        MsgBox "Nenhum registro encontrado", vbInformation, sTit
        Exit Sub
    End If
 
    ApagaConsulta
    'Cria Consulta
    Dim qry As DAO.QueryDef
    Set qry = db.CreateQueryDef("Dados_Obra", Sql)
   
    'Mostra consulta criada
    DoCmd.OpenQuery "Dados_Obra", acViewNormal, acReadOnly

End Sub


Obrigado pela atenção

Cara, consegue me ajudar?
utilizei seu código pra trazer uma consulta sql num textbox mais retornou o seguinte erro.

"caracteres encontrados após o final da instrução sql"