Pesquisa usando Find com dois criterios

Estou tentando fazer uma pesquisa num BD usando o método Find. Ao pesquisar o campo usando um critério, conforme poderão ver no código abaixo que postarei, não tenho probema. Porém, quando tento utlizar mais que um critério dá problema. Retorna informação de que os Tipos não coincidem. Como devo proceder?

CÓDIGO QUE DÁ ERRO

codigo_livro = txtfields1.Text Adodc1.Recordset.MoveFirst ' pesquisa = codigo_livro Adodc1.Recordset.Find "livro = '" & pesquisa & "'", "retorno = '" & Null & "'", adSearchForward

CÓDIGO QUE FAZ PESQUISA NORMAL

codigo_livro = txtFields1.Text Adodc1.Recordset.MoveFirst ' pesquisa = codigo_livro Adodc1.Recordset.Find "livro = '" & pesquisa & "'", adSearchForward

Só para que tenham presente meu objetivo: Eu quero que a pesquisa me retorne o registro cujo campo "livro" corresponda ao número existente no controle txtfields1.text, e o campo "retorno" esteja em branco.