Erro 91

olá pessoal estou com o seguinte problema, na hora de gravar está dando o erro : object variable or with block variable no set.

o fonte que para:

curso = "Hardware"

atividade = "Assistir Aula"

dia = Date

HoraFim = Time

Tempo = CDate(HoraFim) - CDate(HoraInicio)

With Data1

.Recordset.AddNew

.Recordset("Curso") = curso

.Recordset("Atividade") = atividade

.Recordset("Dia") = dia

.Recordset("Hora Inicio") = HoraInicio

.Recordset("HoraFim") = HoraFim

.Recordset("Liberado") = 1

.Recordset("Tempo") = Tempo

.Recordset("Acerto") = "****"

.Recordset("erro") = "****"

.Recordset("Modulo") = "Módulo 1"

 .Recordset.Update

 End With

 Unload a1_1

 Unload Me