Erro "Run-time error '424' Object Required

[Thiago Caires 0]

Olha... eu tenho uma programa que funciona e alguma penitenciarias....

ai como sempre esta mudando de diretores, me pediram para fazer um cadastro de diretor

eu elaborei esse cadastro mas está dando erro....

 

"Erro "Run-time error '424' Object Required"

 

a base se dados é em access a tabela da base de dados se chama "DIRETOR"....

 

eu preciso que quando o usuario clique no "incluir" a pessoa possa cadastrar um novo diretor...

tem um botão "gravar"

tem um botão para "cancelar"

tem um botão para "excluir"

e outro botão para sair...

e tem o campo para digitar "txtnome" para digitar o nome do proximo diretor e cadastrar...

 

vou colocar a programação a baixo espero que vocês possam me ajudar a achar o erro....

 

Private Sub txtnome_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then

Data1.RecordSource = "select * from diretor where esta='SIM'"
Data1.Refresh

Data1.RecordSource = "select * from diretor=' & txtnome.Text & " '"

End If


End Sub


Private Sub cmdcancelar_Click()

Data1.Recordset.CancelUpdate
Data1.Refresh

cmdincluir.Enabled = True
cmdgravar.Enabled = False
cmdcancelar.Enabled = False
cmdexcluir.Enabled = True
cmdsair.Enabled = True
cmdlocalizar.Enabled = True
cmdimprimir.Enabled = True
Data.Enabled = True



cmdincluir.SetFocus

End Sub

Private Sub cmdexcluir_Click()

If MsgBox("Deseja Excluir: " & txtnome.Text & " da lista", vbYesNo + vbInformation, "Excluir ?") = vbYes Then
Data.Recordset.Delete
Data.Refresh
End If

End Sub

Private Sub cmdgravar_Click()

If txtnome.Text = "" Then
MsgBox "Nome em Branco!", vbExclamation, "Atenção!"
txtnome.SetFocus
Exit Sub
End If

Data1.Recordset.Update
Data1.Refresh

cmdincluir.Enabled = True
cmdgravar.Enabled = False
cmdcancelar.Enabled = False
cmdexcluir.Enabled = True
cmdsair.Enabled = True
Data1.Enabled = True



cmdincluir.SetFocus

End Sub


Private Sub cmdincluir_Click()

Data1.Recordset.AddNew

cmdincluir.Enabled = True
cmdgravar.Enabled = True
cmdcancelar.Enabled = True
cmdexcluir.Enabled = False
cmdsair.Enabled = False
Data1.Enabled = False



txtnome.Text = " "
txtnome.SetFocus

End Sub


Private Sub cmdsair_Click()
Unload Me
End Sub
Private Sub Form_Load()

var0b = Conexao(diretor, caminho_bd, "qpalzmMZN", False)


End Sub

Agradeço desde já a todos!

 

Thiago Caires

[scorpio 7]

Em que parte acusa o erro ?