Estou utilizando esse código para localizar um cliente pelo nome, mas esta dando o erro: "OS ARGUMENTOS SÃO INCORRETOS, ESTÃO FORA DO INTERVALO ACEITAVEL OU ESTÃO EM CONFLITO". O q está errado neste código?

 

   Dim s As String
   s = InputBox("Digite o Nome do Cliente", "Localizar Clientes")
   s = CStr(s)
   If s <> Empty Then
        Rs.Find "select Nome from Clientes where Nome=" & s
    Else
    Exit Sub
    End If

 

Desde Já eu agradeço!

Acho que esta faltando o nome ficar entre aspas simples

 

Rs.execute "select Nome from Clientes where Nome= '" & s & "'"