Bueno, Bueno por fin solucione mi problema no esta en la consulta del MySql si no en la Grilla no se porque me mostraba datos de esa forma cambiandome las fechas pero en Fin la Solución fue Esta
Código:
If Rs.State = 1 Then Rs.Close
Rs.Open "SELECT * FROM Ppagos WHERE NOMBRE = '" & .TxtActualizarNombre.Text & "' ORDER BY Ffecha", cnn, adOpenStatic, adLockOptimistic
Rs.Requery
Call .FlexGridCargar(.GrillaPpagos)
Fila = 1
While Rs.EOF = False
.GrillaPpagos.TextMatrix(Fila, 0) = Format(Rs.Fields("Ffecha"), "dd-MMM-yyyy")
.GrillaPpagos.TextMatrix(Fila, 2) = Format(Rs.Fields("Pagos"), "$ #,##0.00")
Fila = Fila + 1
Rs.MoveNext
Wend
.TotalPpagos = Format(Sumar(.GrillaPpagos, 2), "$ #,##0.00")
.Show vbModal
Gracias a todos aquellos que muy desinteresadamente me ayudaron.
Hasta pronto y nuevamente Gracias.