Fråga : Befalla knäppas hjälp!!

Jag har en bilda för att dra rapporter med 2 som text boxas txtStart, och txtEnd därefter befaller efter knäppas cmdCurrentDay, CmdCurrentWeek, cmdCurrentMonth, cmdCurrentYear som är cmdYesterday, cmdLastWeek, cmdLastMonth som är cmdLastYear, när u klickar en av dessa befaller knäppas den förlägger daterar i txtStart och i txtEnd. exempel: cmdCurrentDay kodifiera läser:
Me.txt för starten = för Format$ för
Me.txt för cmdCurrentDay_Click för
Private under() (DATERA, DateFormat), avslutar =
End Sub
all för Format$ (DATERA, DateFormat), av dessa befaller korrekta knappens arbete, men vad jag behöver är nu 2 befaller mer knappen på cmdCurrentPay och cmdLastPay så baserat på strömmen datera mig önskar att den ska sätta i 2na daterar för strömlönen daterar och den föregående lönen daterar så, cmdCurrentPay skulle satt 7/21/2010 i txtStart och 8/3/2010 i txtEnd. och cmdLastPay skulle satt 7/7/2010 i txtStart och 7/20/2010 i txtEnd.

Attached är ett ta provfoto och tar prov databas. filename " för class= för >