主题：老师帮忙看看

Dim q As new QueryBuilder
q.TableName="应收账款"
q.SelectString = "select '' As 日期,'期初' As 摘要,期初_应收客户款 As 期初,0 As 应收,0 As 收款,期初_应收客户款 As 余额 from {客户信息表} "
Tables("查询_tbl客户查询").DataSource = Tables("应收账款")

 你的是外部数据源吗？如果是还要指定ConnectionName

Dim q As new QueryBuilder
q.ConnectionName = "数据源名"
q.TableName="应收账款"
q.SelectString = "select '' As 日期,'期初' As 摘要,期初_应收客户款 As 期初,0 As 应收,0 As 收款,期初_应收客户款 As 余额 from {客户信息表} "
Tables("查询_tbl客户查询").DataSource = Tables("应收账款")