[Resolvido]Mensagem de erro - Registro não encontrado

Oi pessoal! sou novo na programação, e estou com um problema. Ao realizar uma consulta sql o sistema esta retornando um erro quando o registro não é encontrado. Segue abaixo parte do codigo:
Private Sub entrada1_Click()
Dim sql As String
Dim Banco As Database
Dim funcionario As Recordset
sql = "SELECT cd, rf_funcionario, nm_funcionario, foto FROM funcionario WHERE cd=" & txt_rf.Text & ""
Set Banco = CurrentDb
Set funcionario = Banco.OpenRecordset(sql)

Me.txt_aviso.Visible = True
Me.txt_aviso.BorderStyle = 0
Me.txt_aviso = funcionario!nm_funcionario

Set Banco = Nothing
Set funcionario = Nothing
End Sub

Olá, seja bem vindo ao Máximo Access. Você precisa fazer o tratamento de erro, programando para exibir uma mensagem caso o registro não exista. Mais ou menos assim:

Private Sub entrada1_Click()

If IsNull(DLookup("cd", "funcionario", "cd=" & Me!txt_rf)) Then
MsgBox "Registro não encontrado", vbOkOnly + vbCritical, "Atenção"
Else

Dim sql As String
Dim Banco As Database
Dim funcionario As Recordset
sql = "SELECT cd, rf_funcionario, nm_funcionario, foto FROM funcionario WHERE cd=" & txt_rf.Text & ""
Set Banco = CurrentDb
Set funcionario = Banco.OpenRecordset(sql)

Me.txt_aviso.Visible = True
Me.txt_aviso.BorderStyle = 0
Me.txt_aviso = funcionario!nm_funcionario

Set Banco = Nothing
Set funcionario = Nothing
End Sub

End If

Valeu cara! deu certo. Só mais uma coisa! Da pra explicar o que este DLookup, eu tentei de tudo seek, recordsetclone e outras coisas.

DLookup é DPesquisa em português. Se você colocar essa expressão em um campo de formulário ou de relatório, verá que o nome passará para DPesquisa se o Access estiver em português. Isso significa que a função fará uma pesquisa na tabela. Se não encontrar um registro com um valor que corresponda ao do critério, emite a mensagem.
O Is Null significa que será verificado se é nulo. Se for, emite a mensagem.

Mais uma vez obrigado! Mais duvidas virão nesse meu projeto, agora já sei a quem recorrer. Um abraço!

Obrigado pelo retorno. No que for possível, estamos por aqui.

Só faltou clicar no botão Resolvido ali embaixo. Dessa vez, eu o faço.

Fiz uma alteraçãozinha no título para fica mais descritivo, ok?