数据库用的是ACCESS，查询语句在ACCESS中正常，但在VB.NET中提示“其他信息: ORDER BY 子句语法错误。”
代码如下：

    Private Sub FillCustomersAccounts()

        strCustomersAccountsSQL = "Select Customer, EarningDate as AccountDate, Description as Desc, Amount as DR, 0 as CR From " &

            "tblCustomersEarns Where EarningDate Between #2014-1-1# And #2014-1-31# " &

            "UNION ALL Select Customer, OrderDate as AccountDate, Remark as Desc, 0 as DR, Account as CR From " &

            "S:\Order.accdb.tblOrder Where OrderDate Between #2014-1-1# And #2014-1-31#"

        conCustomer.Open()

        Dim CustomersAccountsDataAdapt As New OleDb.OleDbDataAdapter(strCustomersAccountsSQL, conCustomer)

        Dim CustomersAccountsDataset As New DataSet

        CustomersAccountsDataAdapt.Fill(CustomersAccountsDataset, "CustomersAccounts")

        dgvCustomerAccount.DataSource = CustomersAccountsDataset

        dgvCustomerAccount.DataMember = "CustomersAccounts"

        conCustomer.Close()

    End Sub

求大神正解。