如果我们想把查询结果打印出来，那么我们经常用到Data Report，在这里我说的是直接用记录集rs给Data Report设数据源。为了快速将查询结果中的字段加入到Data Report，我们先来建一个DataEnvironment1，设置好DataEnvironment1中的Connection1的连接，然后在DataEnvironment1中的Connection1中右键添加子命令Command1，在Command1上右键，属性，选择SQL语句，将我们的查询语句写进去，确定，完毕后就可以看到我们希望显示的字段了。如果需要，可以添加多个子命令。然后新建一个DataReport1，点住DataEnvironment1中的Command1不放，直接拖到DataReport1中的细节区，然后再根据需要调整各字段位置就行了。注意要将细节区中的各个textbox的DataMember置空。然后在程序里面写代码就可以了。如Dim rsdr As New ADODB.Recordset

        Set rsdr = Conn.Execute(sqlall)

        Set drqueryall.DataSource = rsdr

        drqueryall.Show