Ola, bom dia a todos.
Eu estou criando um cadastro de Cliente e Agendamentos em VBA com bando de dados em Access 2010 e estou criando uma Consulta de Agendamento utilizando o seguinte código mas está aparecendo o erro: Erro em tempo de execução '-2147217904 (80040e10)':
Nenhum valor foi fornecido para um ou mais parâmetros necessários.
Private Sub botao_consulta_Click()
If Me.OptionCPF = True Then 'Marcar está opção para digitar o CPF do Cliente para realizar a consulta por CPF
'Criar a conexão com o Banco de Dados Access
Set Rs = New ADODB.Recordset
Rs.Open "SELECT * From tblagendar Where CPF = '" & Me.pes_cpf.Text & "'", MiConexao, adOpenKeyset, adLockOptimistic, adCmdText
Me.caixa_cod.Text = Rs.Fields("Código")
Me.caixa_nome.Text = Rs.Fields("Nome_cli")
Me.caixa_cpf.Text = Rs.Fields("CPF_cli")
Me.caixa_telefone.Text = Rs.Fields("Telefone")
Me.caixa_celular.Text = Rs.Fields("Celular")
Me.caixa_dia.Text = Rs.Fields("Dia")
Me.caixa_horario.Text = Rs.Fields("Horario")
Me.caixa_dataagendamento.Text = Rs.Fields("Data_Agendamento")
Me.caixa_valor.Text = Rs.Fields("valor")
Me.caixa_procedimento.Text = Rs.Fields("Procedimento_Agendado")
Me.caixa_email.Text = Rs.Fields("Email")
Rs.Update
End If
End Sub
Desde já agradeço.