alguem sabe me dizer porque este comando so funciona a primeira vez e nao mais?????

 

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "cmdLocalizar"
    Dim criterio As Variant
    Dim str As String
    str = InputBox$("Digite o nome da agência: ", "Localizar Agencia")
    criterio = CVar(str)
'    If str = "" Then
'       MsgBox "Para localizar a Agência, digite o nome da agência."
'       Exit Sub
'    End If
       adoAgencias.Recordset.Find "agencia = '" & criterio & "'"
       txtAgencia.SetFocus
Case "cmdSair"
    Unload Me
End Select
End Sub

Estranho, pra mim parece tudo certo... Manda pra mim o form que vc faz isso que eu dou uma olhada. 

E COMO TE MANDO ESTE?????????