Consulta de código implementado en visual basic para actualizar un combo box

Hola muy buenas...
Tengo un problemilla a la hora de actualizar un combo box cuando válido una serie de datos.
Me explico:
Doy a un botón validar y me aparece un combo(al abrir el formulario la propiedad visible del combo es false), que tiene una serie de opciones que se deberían actualizar al pulsar dicho botón en función de la hora del sistema...
El Código utilizado es el siguiente:
Sub ActualizaCombo()
   Me.ccActividades.RowSource = "SELECT tipo_registros.tipo_reg FROM tipo_registros " _
   & "WHERE #" & wHora & "# BETWEEN tipo_registros.hora_inicio   And tipo_registros.hora_fin " _
   & "Or tipo_registros.hora_inicio = #" & wHoraCero & "#"
    Me.ccActividades.Requery
End Sub
Private Sub Form_Load()
   ActualizaCombo
End Sub
Private Sub btnValidacion_Click()
Dim blnAceptar As Boolean
If Not IsNull(Me.txtNum_Personal) Then
  blnAceptar = Confirmacion()
  If Not blnAceptar Then
    Me.txtNum_Personal = ""
  End If
End If
End Sub
Public Function Confirmacion() As Boolean
Dim bytEleccion As Byte
strMensaje = "¿Los datos personales son correctos?"
bytEleccion = MsgBox(strMensaje, vbQuestion + vbOKCancel, conNombre)
If bytEleccion = vbOK Then
  Confirmacion = True
  Me.ccActividades.Visible = True
  Me.ccActividades.SetFocus
  ActualizaCombo
Else
  Confirmacion = False
End If
End Function
El problema es que la función la realiza perfectamente al abrir el formulario por primera vez, pero no cuando pulso el botonValidacion que debería de actualizar el combo con los datos nuevos.
Para Actualizar tengo que abrir y cerrar el formulario, sino nada. También he probado con eventos de controles como el click del combo pero tp funciona.
Espero haberme explicado correctamente y que me puedas ayudar
Muchas Gracias por anticipado.Un saludo