Formulario mdi y campos obligatorios

[APENA01]

BUENO EL CODIGO QUE HE HECHO ES PARA UNA BARRA DE HERRAMIENTAS EN UN FORM MDI
HE CREADO UN INDEX PARA LA BARRA

Y ENVIO EL CODIGO DE TODOS LOS BOTONES INCLUYENDO EL BOTON GRABAR QUE ES EL QUE ME DA ERROR AL CORRER EL PROGRAMA


Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
Me.ActiveForm.Adodc1.Recordset.AddNew

Case 2
validaCampos
Me.ActiveForm.Adodc1.Recordset.Update
Me.ActiveForm.Adodc1.Recordset.Requery
Me.ActiveForm.Adodc1.Refresh
Me.ActiveForm.Adodc1.Recordset.MoveLast

Case 3
Me.ActiveForm.Adodc1.Recordset.CancelUpdate
Case 4
If vbYes = MsgBox("Desea eliminar el Registro", vbYesNo) Then
Me.ActiveForm.Adodc1.Recordset.Delete
If Me.ActiveForm.Adodc1.Recordset.EOF Then
Me.ActiveForm.Adodc1.Recordset.MoveFirst
Else
Me.ActiveForm.Adodc1.Recordset.MoveNext
If Me.ActiveForm.Adodc1.Recordset.EOF Then
Me.ActiveForm.Adodc1.Recordset.MoveLast
End If
End If
End If
Case 5
Dim Mensaje, Estilo, Título, Ctxt, Respuesta, MiCadena, ayuda
Mensaje = "¿Desea salir del programa?" ' Define el mensaje.
Estilo = vbYesNo + vbQuestion + vbDefaultButton2 ' Define los botones.
Título = "Salir del Programa" ' Define el título.
Ctxt = 1000 ' Define el tema
' el contexto
' Muestra el mensaje.
Respuesta = MsgBox(Mensaje, Estilo, Título, ayuda, Ctxt)
If Respuesta = vbYes Then ' El usuario eligió el botón Sí.
End



End If


End Select
End Sub