run time error 13

[EVANDROJGONCALVES 0]

:wacko: EU ESTOU TENTANDO CRIAR UM PEQUENO PRPGRAMA PARA BUSCA DE NOMES DE MUSICAS CADASTRADAS UM BANCO DE DADOS.

MAS QUANDO EM TEMPO DE EXECUÇÃO APARECE ESSE " ERRO 13" E A SEGUINTE LINHA É SELECIONADA:

 

Private Sub CMDPROCURAR_Click()

Dim VALORPESQUISA As String

 

VALORPESQUISA = InputBox("DIGITE O NOME DA MÚSICA QUE VOCÊ QUER ENCONTRAR!")

 

 

* CADASTRODEMUSICAS.Recordset.FindFirst "TITULO&" = Val(VALORPESQUISA)*

 

If CADASTRODEMUSICAS.Recordset.NoMatch = True Then

MsgBox "ESTA MÚSICA NÃO FOI ENCONTRADA EM CD!"

End If

 

End Sub

 

 

TRATA-SE DE UM BOTÃO DE COMANDO QUE IRÁ PEDIR PARA O USUÁRIO DIGITAR O NOME DA MUSICA.

MAS AO CLICAR EM OK APARECE ESTE ERRO MAIS " TYPE MISMATCH" .

 

SERÁ QUE ALGUÉM PODERIA ME AJUDAR?

OBRIGADO

[slype 1]

A InputBox te retorna um valor String na variavel VALORPESQUISA, e depois você esta dando um Val na variavel que contem letras... Isso esta ocausionando o erro, troque o "Val" por "Trim", creio que isso resolvera seu problema.