Compile error

[Allan Araujo]

Estou fazendo um projeto de uma agenda eletrônica.

Digitei todos os códigos conforme a apostila, mesmo assim deu erro.

o que esta destacado em vermelho é onde aparece o erro, bem em,baixo.

Gostaria de sua ajuda para resolver este problema.

O Código digitado foi este:

Private Sub AtualizaFormulario()

If TBContatos.RecordCount > 0 Then

MskConCodigo.Text = TBContatos("código")

TxtConNome.Text = TBContatos("nome")

TxtConEndereço.Text = TBContatos("endereço")

TxtConBairro.Text = TBContatos("bairro")

TxtConCidade.Text = TBContatos("cidade")

MskConCep.Text = TBContatos("cep")

MskConTelefone.Text = TBContatos("telefone")

MskConFax.Text = TBContatos("fax")

MskConCelular.Text = TBContatos("celular")

MskConEmail.Text = TBContatos("email")

MskConData.Text = TBContatos("data")

Else

LimpaFormulário

End If

End Sub

Private Sub AtualizaCampos()

TBContatos("código") = MskConCodigo.Text

TBContatos("nome") = MskConCodigo.Text

TBContatos("endereço") = TxtConEndereço.Text

TBContatos("bairro") = TxtConBairro.Text

TBContatos("cidade") = TxtConCidade.Text

TBContatos("cep") = MskConCep.Text

TBContatos("telefone") = MskConTelefone.Text

TBContatos("fax") = MskConFax.Text

TBContatos("celular") = MskConCelular.Text

TBContatos("email") = MskConEmail.Text

TBContatos("data") = MskConData.Text

End Sub

Private Sub LimpaFormulário()

MskConCodigo.Text = " "

MskConCodigo.Text = ""

TxtConEndereço.Text = ""

TxtConBairro.Text = ""

TxtConCidade.Text = ""

MskConCep.Text = " . - "

MskConTelefone.Text = "() - "

MskConFax.Text = "() - "

MskConCelular.Text = "() - "

MskConEmail.Text = " "

MskConData.Text = " / / "

End Sub

Private Sub HabilitaControles()

MskConCodigo.Text = True

MskConCodigo.Text = True

TxtConEndereço.Text = True

TxtConBairro.Text = True

TxtConCidade.Text = True

MskConCep.Text = True

MskConTelefone.Text = True

MskConFax.Text = True

MskConCelular.Text = True

MskConEmail.Text = True

MskConData.Text = True

End Sub

Private Sub DesabilitaControles()

MskConCodigo.Text = False

MskConCodigo.Text = False

TxtConEndereço.Text = False

TxtConBairro.Text = False

TxtConCidade.Text = False

MskConCep.Text = False

MskConTelefone.Text = False

MskConFax.Text = False

MskConCelular.Text = False

MskConEmail.Text = False

MskConData.Text = False

End Sub

Private Sub DesativaBotoes()

btnInserir.Enabled = False

BtnAlterar.Enabled = False

BtnExcluir.Enabled = False

BtnImprimir.Enabled = False

BtnProximo.Enabled = False

BtnAnterior.Enabled = False

BtnLocalizar.Enabled = False

End Sub

Private Sub AtivaBotoes()

If TBContatos.Record.Count > 0 Then 'Esta linha verifica se tem registros na tabela'

btnInserir.Enabled = True

BtnAlterar.Enabled = True

BtnExcluir.Enabled = True

BtnImprimir.Enabled = True

BtnProximo.Enabled = True

BtnAnterior.Enabled = True

BtnLocalizar.Enabled = True

Else

Desativa Botoes

End If

btnInserir.Enabled = True

BtnSair.Enabled = True

End Sub

(fica selecionado amarelo) Private Sub Form_Load()

TBContatos.Index = "indconnome"

If TBContatos.RecordCount > 0 Then

(fica selecionado azul) AtualizaFormulário

End If

DesabilitaControles

AtivaBotoes

End Sub

Private Sub BtnAlterar_Click()

If BtnAlterar.Caption = "Alterar" Then

HabiliataControles

DesativaBotoes

BtnAlterar.Caption = "confirmar"

BtnAlterar.Enabled = True

BtnSair.Caption = "Cancelar"

MskConCodigo.Enabled = False

TxtConNome.SetFocus

Else

If MsgBox("Confirma Alteração?", vbYesNo, "alteração") = vbYes Then

TBContatos.Edit

AtualizaCampos

TBContatos.Update

End If

BtnAlterar.Caption = "Alterar"

BtnSair.Caption = "Sair"

AtivaBotoes

DesabilitaControles

End If

End Sub

Private Sub BtnAnterior_Click()

If TBContatos.BOF = False Then

TBContaos.MovePrevious

End If

AtualizaFormulário

End Sub

Private Sub BtnExcluir_Click()

If MsgBox("Deseja excluir este contato?", vbYesNo + vbDefaultButton2, "Exclusão") = vbYes Then

TBContaos.Delete

BtnAnterior_Clivk

AtivaBotoes

End If

End Sub

Private Sub BtnImprimir_Click()

Dim Titulo As String

If MsgBox("Deseja Imprimireste Contato?", vbYesNo, "Impressão") = vbNo Then

Exit Sub

Titulo = "Ficha Indivudual de Contatos"

cabecalhoi (Titulo)

Printer.FontSize = 14

Printer.Print

Printer.Printr "Código:", MskConCódigo.Text

Printer.Print

Printer.Printr "Nome:", TxtConNome.Text

Printer.Print

Printer.Printr "Endereço:", TxtConEndereço.Text

Printer.Print

Printer.Printr "Bairro:", TxtConBairro.Text

Printer.Print

Printer.Printr "Cidade:", TxtConCidade.Text

Printer.Print

Printer.Printr "Cep:", MskConCep.Text

Printer.Print

Printer.Printr "Telefone:", MskConTelefone.Text

Printer.Print

Printer.Printr "Fax:", MskConFax.Text

Printer.Print

Printer.Printr "Celular:", MskConCelular.Text

Printer.Print

Printer.Printr "Email:", MskConEmail.Text

Printer.Print

Printer.Printr "Data:", MskConData.Text

End Sub

Private Sub BtnInserir_Click()

If btnInserir.Caption = "Inserir" Then

LimpaFormulário

HabilitaControles

DesativaBotoes

MskConData.Text = Date

btnInserir.Enabled = True

btnInserir.Caption = "Confirmar"

BtnSair.Caption = "Cancelar"

MskConCodigo.SetFocus

Else

If MskConCodigo.Text = " " Then

MsgBox "Você não digitou o Código", vbCritical, "cadastro de Contatos"

MskConCodigfo.SetFocus

Exit Sub

Else

If MsgBox("deseja gravar este Contato?", vbYesNo, "Cadastro de Contatos") = vbYes Then

TBContatos.AddNew

AtualizaCampos

TBContatos.Update

End If

End If

btnInserir.Caption = "Inserir"

BtnSair.Caption = "Sair"

AtualizaFormulário

DesabilitaControles

AtivaBotoes

End If

End Sub

Private Sub BtnLocalizar_Click()

FrmConConsulta.Show 1

If BuscaContato <> "" Then

TBContatos.Seek "=", BuscaContato

Else

TBContatos.Seek "=", TxtCliNome.Text

End If

AtualizaFormulário

End Sub

Private Sub BtnProximmo_Click()

If TBContatos.EOF = False Then

TBContatos.MoveNext

End If

AtualizaFormulário

End Sub

Private Sub BtnSair_Click()

If BtnSair.Caption = "Sair" Then

Unload Me

Else

AtualizaFormulário

DesativaControles

AtivaBotoes

btnInserir.Caption = "Inserir"

BtnAlterar.Caption = "Alterar"

BtnSair.Caption = "Sair"

End If

End Sub

Private Sub MskCliCódigo_LostFocus()

MskConCodigo.Text = Format(MskConCodigo.Text, "00000")

TBContatos.Index = "indconcódigo"

TBContatos.Seek "=", MskConCódigo.Text

If TBClientes.NoMatch = False Then

MsgBox "Já existe Um Contato com este Código!", vbInformation, "Inclusão"

MskConCódigo.Text = " "

MskConCódigo.SetFocus

End If

TBContatos.Index = "Indconnome"

End Sub

Private Sub MskConData_LostFocus()

If IsDate(MskConData.Text) = False Then

MsgBox "Data Incorreta", vbInformation, "Inclusão"

MskConData.SetFocus

End If

End Sub

espero respostas