Estou eu novamente aqui! consegui encontrar o erro do Block If Whith End If, agora falta descobrir p porque está dando erro de acesso aos dados aqui! será q vocês não poderiam me ajudar por favor!!!

Aui está o código do meu botão salvar:

 

Private Sub mnSalvar_Click()
If Len(txtdata.Text) = 0 Then
    MsgBox

Bom pelo código que vc colocou ai deve ser por falta do End if