数据库连接

遇到一个ADO对象连接数据库的问题，请知道的朋友指点一二，万分感谢;代码如下：
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & VB.App.Path & "\参数设置.mdb"
strSQl = "select *from 炉料 where 炉料名称=" & Trim(MSFlexGrid1.TextMatrix(row, 0)) & ""
rs.Open strSQl, cnn, 3, 3
运行结果为：
rs.Open strSQl, cnn, 3, 3 中至少有一个参数未指定