Question

vb怎样将从数据库中查询出的结果用报表打印出来

我能查询出结果并用datagrid显示出来，但是一打印报表就把数据库中全部内容都打印出来，怎样才能只打印查询结果，请高手帮帮忙！谢谢！
我的查询和打印的程序如下
Private Sub Command1_Click()
Adodc1.ConnectionString = "provider=Microsoft.jet.OLEDB.4.0;Persist security info= False; Data source= E:\xuheng\db1.mdb;Persist security info= False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from shuju where 车号='" & Form4.Text1.Text & "'"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub
Private Sub Command2_Click()
Adodc1.Refresh
DataReport1.Show
End Sub
请您帮忙看看是哪里有问题，谢谢。。。。
应该怎样设置datareport的显示方式？您能不能说的再详细点？我是一个刚刚接触vb不久的初学者，我没有您说的那种标准的crystalreport组件，我用的使vb6.0，只有vb自带的那种datareport。我是把查询结果赋值给ado的记录源，然后让datareport显示，但是显示的是ado记录源的全部内容而不是查询内容，下面是我的程序，请您帮忙指点指点，谢谢您了！

Answer 1

为了你有个好的编程习惯，最好在代码前面都加上
Option Explicit
先定义后使用

问题应该在DataReprot1 这个部分，如果我没记错的话
datareport 应该是vb6中自带的crystal report 工具
这个工具的报表生成是需要自行设计的，可能是你的设计有误。