datagrid控件的问题，希望得到您的帮助，在线等，谢谢

我用ado对象实现了一个简单的查询
获得了记录集
我想把获得记录集的结果填充到datagrid控件里面
可是，当我按照下面的语句执行的时候
在Set DataGrid1.DataSource = rst报错
“行集不能作为标签”
请问我如何能把这一功能实现
在窗体上的datagrid控件
我什么也没有做，只是把这个控件拖到窗体上罢了
以下是语句：
Dim con As New Connection
Dim rst As New Recordset
Private Sub Command1_Click()
Dim txtsql As String
txtsql = "select * from violation_info where PlateID=' " & Text1.Text & " ' "
con.ConnectionString = "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=traffic_v;Data Source=computer"
con.Open
rst.Open txtsql, con
Set DataGrid1.DataSource = rst
rst.Close
con.Close
End Sub