Erro No Formulário

[Sami_souza]

Oi pessoal !

Estou com uma duvida. Esta dando um erro no formulário de cadastro e eu não consigo arrumar por favor me ajudem !

Error Type Mismatach

Este é código fonte:

-----------------------------------------------------------------------------------------------

Private Sub cmdAlterar_Click()

cmdIncluir.Enabled = False

cmdExcluir.Enabled = False

dtAnimal.Recordset.Edit

End Sub

Private Sub cmdExcluir_Click()

If MsgBox("Tem Certeza que deseja apagar este registro?", vbYesNo, "Apagar Registro") = vbYes Then

dtAnimal.Recordset.Delete

dtAnimal.Refresh

End If

End Sub

Private Sub cmdGravar_Click()

cmdIncluir.Enabled = True

cmdExcluir.Enabled = True

cmdAlterar.Enabled = True

dtAnimal.Recordset.Update

End Sub

Private Sub cmdIncluir_Click()

cmdIncluir.Enabled = False

cmdExcluir.Enabled = False

cmdAlterar.Enabled = True

dtAnimal.Recordset.AddNew

End Sub

Private Sub cmdSair_Click()

Unload frmAnimal

End Sub

Private Sub cmdPesquisar_Click()

Dim BuscaString As String

BuscaString = InputBox$("Informe o nome do Cliente", "Buscar Apelido")

If Trim$(BuscaString) <> "" Then

BuscaString = "Nome LIKE '*" + BuscaString + "*'"

dtCliente.Recordset.MoveFirst

dtCliente.Recordset.FindFirst BuscaString

End If

End Sub

Private Sub Form_Load()

cbRaca.AddItem "SRD"

cbRaca.AddItem "Angorá Turco"

cbRaca.AddItem "Azul da Rússia"

cbRaca.AddItem "Bengali"

cbRaca.AddItem "Birmanês"

cbRaca.AddItem "Bobtail"

cbRaca.AddItem "Bombaim"

cbRaca.AddItem "Burmilla"

cbRaca.AddItem "California Spangled,"

cbRaca.AddItem "Cingapura"

cbRaca.AddItem "Cornish Rex"

cbRaca.AddItem "Curl Americano"

cbRaca.AddItem "Cymric"

cbRaca.AddItem "Exótico"

cbRaca.AddItem "Gato de Chartreux"

cbRaca.AddItem "Gato-do-mato Abissínio"

cbRaca.AddItem "Gato da Ilha de Man - Manx"

cbRaca.AddItem "Korat"

cbRaca.AddItem "MaineCoon"

cbRaca.AddItem "Persa branco"

cbRaca.AddItem "Persa Negro"

cbRaca.AddItem "Ragdoll"

cbRaca.AddItem "Sagrado da Birmânia"

cbRaca.AddItem "Scottish Fold"

cbRaca.AddItem "Sphynx"

cbRaca.AddItem "Siamês"

cbRaca.AddItem "Siberiano da Floresta"

cbRaca.AddItem "Tonquinês"

cbRaca.AddItem "Van Turco"

cbRacaCao.AddItem "SRD"

cbRacaCao.AddItem "AFGHAN HOUND"

cbRacaCao.AddItem "AIREDALE TERRIER"

cbRacaCao.AddItem "AKITA"

cbRacaCao.AddItem "AMERICAN ESKIMO DOG"

cbRacaCao.AddItem "AMERICAN STAFFORDSHIRE TERRIER"

cbRacaCao.AddItem "AMERICAN TOY TERRIER"

cbRacaCao.AddItem "BASENJI"

cbRacaCao.AddItem "BASSET AZUL DA GASGONHA"

cbRacaCao.AddItem "BASSET FULVO DA BRETANHA"

cbRacaCao.AddItem "BASSET HOUND"

cbRacaCao.AddItem "BEALGLE"

cbRacaCao.AddItem "BEDLINGTON TERRIER"

cbRacaCao.AddItem "BICHON BOLONHÊS"

cbRacaCao.AddItem "BICHON FRISÊ"

cbRacaCao.AddItem "BICHON HAVANÊS"

cbRacaCao.AddItem "BILLY"

cbRacaCao.AddItem "BOIADEIRO AUSTRALIANO"

cbRacaCao.AddItem "BOIADEIRO BERNÊS"

cbRacaCao.AddItem "BOIADEIRO DE APPENZELLl"

cbRacaCao.AddItem "BOIADEIRO DE FLANDRES"

cbRacaCao.AddItem "BORDER COLIE"

cbRacaCao.AddItem "BORZOI"

cbRacaCao.AddItem "BOSTON TERRIER"

cbRacaCao.AddItem "BOXER"

cbRacaCao.AddItem "BRACO ALEMÃO DE PÊLO CURTO"

cbRacaCao.AddItem "BRACO DE AUVERGNE"

cbRacaCao.AddItem "BRACO ITALIANO"

cbRacaCao.AddItem "BRACO TIROLÊS"

cbRacaCao.AddItem "BULDOGUE AMERICANO"

cbRacaCao.AddItem "BULDOGUE FRANCÊS"

cbRacaCao.AddItem "BULDOGUE INGLÊS"

cbRacaCao.AddItem "BULMASTIFE"

cbRacaCao.AddItem "BULTERRIER"

cbRacaCao.AddItem "CÃO CORSO"

cbRacaCao.AddItem "CÃO D 'ÁGUA AMERICANO"

cbRacaCao.AddItem "CÃO D 'ÁGUA ESPANHOL"

cbRacaCao.AddItem "CÃO D 'ÁGUA FRISSON"

cbRacaCao.AddItem "CÃO D 'ÁGUA PORTUGUÊS"

cbRacaCao.AddItem "CÃO DE CRISTA CHINÊS"

cbRacaCao.AddItem "CÃO DE CRISTA DORSAL DA RODÉSIA"

cbRacaCao.AddItem "CÃO DOS PIRENEUS"

cbRacaCao.AddItem "CHIHUAHUA"

cbRacaCao.AddItem "CHOW -CHOW"

cbRacaCao.AddItem "COCKER SPANIEL AMERICANO"

cbRacaCao.AddItem "COCKER SPANIEL INGLÊS"

cbRacaCao.AddItem "COLIE DE PÊLO LONGO"

cbRacaCao.AddItem "DÁLMATA"

cbRacaCao.AddItem "DACHSHUND PÊLO CURTO"

cbRacaCao.AddItem "DACHSHUND PÊLO DURO"

cbRacaCao.AddItem "DACHSHUND PELO LONGO"

cbRacaCao.AddItem "DOGUE ALEMÃO"

cbRacaCao.AddItem "DOBERMAN"

cbRacaCao.AddItem "DOGUE ARGENTINO"

cbRacaCao.AddItem "DOGUE DE BORDÉAUX"

cbRacaCao.AddItem "FILA BRASILEIRO"

cbRacaCao.AddItem "FOX PAULISTINHA (TERRIER BRASILEIRO)"

cbRacaCao.AddItem "FOX TERRIER PÊLO DE ARAME"

cbRacaCao.AddItem "FOX TERRIER PÊLO LISO"

cbRacaCao.AddItem "GALGO ITALIANO"

cbRacaCao.AddItem "GOLDEN RETRIEVER"

cbRacaCao.AddItem "GRANDE BOIADEIRO SUIÇO"

cbRacaCao.AddItem "GRANDE CÃO JAPONÊS"

cbRacaCao.AddItem "GRIFO DE BRUXELAS"

cbRacaCao.AddItem "HUSKY SIBERIANO"

cbRacaCao.AddItem "JACK RUSSEL TERRIER"

cbRacaCao.AddItem "KERRY BLUE TERRIER"

cbRacaCao.AddItem "KOMONDOR"

cbRacaCao.AddItem "KUVASZ"

cbRacaCao.AddItem "LHASA APSO"

cbRacaCao.AddItem "LULU DA POMERANIA (SPITZ ALEMAO)"

cbRacaCao.AddItem "MALAMUTE DO ALASKA"

cbRacaCao.AddItem "MALTÊS"

cbRacaCao.AddItem "MASTIFE"

cbRacaCao.AddItem "MASTIN NAPOLITANO"

cbRacaCao.AddItem "OLD ENGLISH SHEEPDOG"

cbRacaCao.AddItem "PASTOR ALEMÃO"

cbRacaCao.AddItem "PASTOR AUSTRALIANO AMERICANO"

cbRacaCao.AddItem "PASTOR BELGA"

cbRacaCao.AddItem "PASTOR DE SHETLAND"

cbRacaCao.AddItem "PEQUINÊS"

cbRacaCao.AddItem "PINSCHER ANÃO"

cbRacaCao.AddItem "PINSCHER MÉDIO"

cbRacaCao.AddItem "PIT BULL"

cbRacaCao.AddItem "POINTER INGLÊS"

cbRacaCao.AddItem "POODLE MINIATURA E GIGANTE"

cbRacaCao.AddItem "POODLE TOY"

cbRacaCao.AddItem "PUG"

cbRacaCao.AddItem "RETRIEVER DO LABRADOR"

cbRacaCao.AddItem "ROTTWEILER"

cbRacaCao.AddItem "SAMOIEDA"

cbRacaCao.AddItem "SÃO BERNARDO"

cbRacaCao.AddItem "SCHNAUZER ANÃO"

cbRacaCao.AddItem "SCHNAUZER GIGANTE"

cbRacaCao.AddItem "SCHNAUZER Standard"

cbRacaCao.AddItem "SETTER INGLÊS"

cbRacaCao.AddItem "SETTER IRLANDES"

cbRacaCao.AddItem "SHAR -PEI"

cbRacaCao.AddItem "SHIBA"

cbRacaCao.AddItem "SHIH -TZU"

cbRacaCao.AddItem "SILKY TERRIER"

cbRacaCao.AddItem "SKYE TERRIER"

cbRacaCao.AddItem "SPITZ ALEMÃO"

cbRacaCao.AddItem "STAFFORDSHIRE BULTERRIER"

cbRacaCao.AddItem "TECKEL (DACHSHUND)"

cbRacaCao.AddItem "TERRANOVA"

cbRacaCao.AddItem "TERRIER ESCOCÊS"

cbRacaCao.AddItem "TERRIER IRLANDÊS"

cbRacaCao.AddItem "TERRIER BRASILEIRO"

cbRacaCao.AddItem "WEIMARANER"

cbRacaCao.AddItem "WELSH TERRIER"

cbRacaCao.AddItem "WHIPPET"

cbRacaCao.AddItem "YORKSHIRE TERRIER"

End Sub

-----------------------------------------------------------------------------------------------

Obrigado

Samira

[jntk]

Em qual linha da esse erro?

[Sami_souza]

Ele não aponta nenhuma linha.

Ele aparece quando clica em qualquer um dos botões.

[Fireboard]

Execute o seu projeto teclando F8. O VB irá passando linha por linha. Se alguma estiver com algum erro você verá qual é.