Problemas VB y consulta MySql filtrada por Fecha

[noah_242]

Encontre la solucion pero se me olvido postearla,es la siguiente:

Public Function Dias_Totales(ByVal fecha As Date)

Dim fecha_dias As Integer
Dim fecha_cero As New Date(1, 1, 1)
fecha_dias = DateDiff(DateInterval.Day, fecha_cero, fecha.Date) + 366

Return fecha_dias
End Function

Dias_Totales(Me.dtp_fecha.Value.Date)

Espero que le pueda servir de ayuda a alguien por si tiene el mismo problema con MySql