problemas con Datetimepicker

[Totto3]

En un Win form tengo 2 radiobutton y 1 datetimepicker para filtrar la busqueda de facturas en la BD SQL.

los radiobutton estan asignados asi: uno por numero de factura y otro por fechas de facturas

al datimepicker le asigno por defecto como Maxdate y Value la fecha actual obtenida del servidor cuando selecciono la opcion por fechas.

en ambos casos de busqueda la informacion de las facturas es desplegada en un datagridview.

bien cuando ejecuto el form por primera vez y selecciono la 2 opcion (por fechas) el datetime toma los valores de la fecha actual y me carga el grid sin problema.

pero si luego me cambio a la primera opcion (por factura) y luego vuelvo a seleccionar la 2 opcion el datetime no me retoma el valor de la fecha actual y no me carga el grid sino que tengo q escoger una fecha anterior y luego seleccionar la fecha actual para q se cargue el Grid.

Que puede estar pasando ???

esto es lo que tengo :

'*** codigo del radio button 2

Private Sub rdbFecha_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbFecha.CheckedChanged

If rdbFecha.Checked = True Then

DateTimePicker1.Value = fechahoy.ToShortDateString
DateTimePicker1.MaxDate = fechahoy
DateTimePicker1.Focus()

End If

End Sub


'*** codigo del datetimepicker

Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged

If rdbFecha.Checked = True Then

dgvFacturas.DataSource = Nothing

dgvFacturas.DataSource= cargar_facturas(DateTimePicker1.Value)

End If

End Sub