vb 未发现数据源名称并且未指定默认驱动程序

我建立了一个Access数据库，里面只有一个表
VB6.0工程与数据库保存在同一目录下了
在VB窗口上面我只画了一个Datagrid和一个按钮
按钮的代码如下
Dim cnn As New Connection
cnn.ConnectionString = "Provide=Microsoft.Jet.OLEDB.4.0;" & "Data source=" + App.Path + "\资料.mdb"
cnn.Open

Dim rst As New Recordset
rst.CursorLocation = adUseClient
rst.Open "SELECT * From 汽车数据", cnn
Set DataGrid1.DataSource = rst
目的是通过Datagrid显示数据库的表
可是运行的时候就出现“未发现数据源名称并且未指定默认驱动程序”
到底是什么原因啊
明明就是简单的数据库 datagrid 按钮
问题就出现在第二 第三行
但是用ADO控件就没出现问题
但是我就是不想用ADO控件
想用纯代码来连接数据库然后通过Datagrid显示出来。。
高手帮我一下啊

+换成&了还是一样的问题
不过还是谢谢2楼

谢谢3楼 不行... 急死了