Cómo ordenar los registros en un MSFlexGrid

Al Abrir una consulta necesito que estos se ordenen por la fecha más antigua, se supone que se realiza con la sentencia ORDER BY más el campo a ordenar, pero al colocarlo me da un error. Este es el código de VB 6.0 con control data que uso:

With Data1
    .DatabaseName = App.Path + "\sis.mdb"
    sql = "Select ci,Cliente,telefonos,direccion,tipopresupuesto,estado,fecha_registro,fecha_realizado,correo from presupuesto'"
    Data1.Refresh
    .RecordSource = sql
    .Refresh
    End With
    MSFlexGrid1. Refresh