添加记录问题

Question

如何用语句添加一条记录进access中，并且添加的记录按时间进行升序排序！Dim strSQL As String
        strSQL = "select * from Tableqxcjsj where dayrq >=#" & TxtTime.Text & "# order by  dayrq asc "
        Dim Brs As New ADODB.Recordset
        Brs.CursorLocation = adUseClient
        Brs.Open strSQL, Aconn, adOpenDynamic, adLockOptimistic
        If Brs.RecordCount > 0 Then
            MsgBox "记录已经存在！"
            Exit Sub
        Else
            Ars.AddNew
            Ars.Fields("ldtd") = TxtLd.Text
            Ars.Fields("wdtm") = TxtWd.Text
            Ars.Fields("dayrq") = TxtTime.Text
            Ars.Fields("bc10fz") = TxtFx.Text & "/" & TxtFs.Text
            Ars.Fields("cylp") = TxtQy.Text
            Ars.Fields("xzqyp") = TxtHy.Text
            Ars.Fields("xdwdrh") = TxtSd.Text
            Ars.Fields("wdmaxtm") = TxtZg.Text
            Ars.Fields("wdmintm") = TxtZd.Text
            Ars.Fields("rjsrain") = TxtJs.Text
            Ars.Fields("tqxxsky") = TxtXx.Text
            Ars.Fields("lblsee1") = TxtNjd.Text
            Ars.Update
            MsgBox "添加成功！"
            Brs.Close
        End If麻烦看下怎么不对！