Visual Basic - Agregar datos a una base de datos desde un formulario

Private Sub CmdSiguiente_Click()

If TxtDNI.Text <> "" And TxtNombre.Text <> "" And TxtApellido.Text <> "" And TxtDomicilio.Text <> "" And TxtLocalidad.Text <> "" And TxtFechaIngreso.Text <> "" Then

 If Len(TxtFechaIngreso.Text) = 10 And Len(TxtDNI.Text) = 10 Then

  Else

   MsgBox " La fecha de Ingreso y/o el número de DNI no son correctos", vbOKOnly, ""

   Exit Sub

  End If

 Else

    MsgBox "Complete todos los datos del formulario", vbOKOnly, "Completar Datos"

    Exit Sub

 End If

    If base.RecordCount = 0 Then

        Set base = Nothing

        base.Open "SELECT * From SOCIOS", a, adOpenDynamic, adLockOptimistic

      If base.BOF And base.EOF Then

       base.AddNew

    ElseIf base.RecordCount > 0 Then

            base.MoveLast

            base.AddNew

      End If

    End If

base!NOMBRE_SOCIO = TxtNombre.Text

base!APELLIDO_SOCIO = TxtApellido.Text

base!LOCALIDAD_SOCIO = TxtLocalidad.Text

base!DOMICILIO_SOCIO = TxtDomicilio.Text

base!DNI_SOCIO = TxtDNI.Text

base!FECHA_INGRESO = TxtFechaIngreso.Text

base.Update

CmdCancelar.Enabled = False

Set base = Nothing

Set a = Nothing

Contratos.Show 0

Me.Hide

End Sub